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T^ 


MSX2/2DD/48DDfl 
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10 READ Ft 

!0 IF Ft="Mf THEH SCHEEH0:COLOR 15. 4. TiPRIMrOISK CHAHGf :GOSUB l20:SCHf EII7:G071) 10 

30 IF Ft="»*r THEN COLOR 1S.4.7:E1ID 

iH BIOAD Ftr.sf!-.S 

SO COLOR=HESTORE 

SO COLOR D. 0. 

n 

so Gosus n 

90 GOTO 10 

100 DATA tt». diitio1.(lako2,dDliD3, dokol. dokoS, tiia. cird. in>. pork«r, lankay. •** 
nn DATA (>nl. iin2. htlf,cit». hutirl.nnbou. ion stir, tyuubou. ohiyi, iibouj in, «* 
no IF IN(EYt=" THEN 1!0 ELSE RETURN 
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•^^'P •14800R[eaS] 

7K-A:pn-> • 

^t'>UM^*U!z !? ^c;3^ t'XT^TcHiJS^ 

ti^tht -otztziiiz. Z(rm^iz-\fv-^XfiBtz\.^t^^ 

9y^'yfi7.\:;T':i- i^^^O •103S- 

neoooRC^fSfe] 





;^ 




±^1920 



MOVIE 



1910% n^0iz±$^w^(D 




{j(7)rBi(c^'it*<^snsA^ ^n 
^i'^Ltzmm^h. 



t'U-tSliLitl5|iit^C75 

hs '^miz\~'~v><D.bii 
m 2 >^#:*^mlS^l^r(75_hi%t>^ 

^z(DBm. t(Dm-t^i£mizn 

i^-r^tzdblzMi^hHfz. ^7v 





■y:?ti-^mM^£i:\ ttitziiX- 
%it>Plti). fU-t K-V>t7) 



^^•MSX'7:^v>100 
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Dreaming World 









4-#(Sachi) ^^io-^Xh-hl. 

^tX't'^t'P-DTBtztl'h. 7f. 

?7b%^X. nt^^£A.tzti't:>t>^h 
^^l^tt^mzt^-ofzm. 
^ffl(Aki) :^^iz^i)tzfy^-^fz 

tiL^^-^fz^i. 

Sachi toX'tti. 

^^liz^£^)tzi\ =7 

i>\.iz\^^U. 



Aki ^pf>''j:uct[^;^-U/zTfc 
Hiro n^tz-htn'^^Zt\.t. 

mmmzmmy^xMz^^Uo ^^^ 

\.-^:^^i)fz[,^Zi:t)^^%(7), 

• Z n 4" lb OT ? U 7 OT SHI % W^ L. fr L ^ 



Sachk Aki. Hiro ^7!)^ lo fe 3 A 
X'ti^-^^itXt)^/^ii^<r)X\ h- 

iSffiC 4' o T /- V < 7 (7) :^ ':r V 

3^30B m^ CLUB24 
3^31H mJII CLUBGIO 

4fl2 =S*M it'.\l^=7<> 
43 3 B :*;§ T'J-:?';^ 




^0IIU! 






h ^)v<^t%\tvXLtiUzm. 
•"T ^ 7=-''^ 7. j-r-^:S 'j: t - :? - • 



i§A#IC73^^J:l.^|£T^ mmtH: 
co4AL;!i^tb'j:LVCC7>fFp°n[ifn 

■ U'^VxT^tiCOo znh:^V — 
^)—^m'^X[t^£/^(nW^h^£< 
U^(r>X\ ^io^£\^\ -■t.'bfct-^ 

^tint-^-^X \iT:^f3''\^X\.^fzt^ 

hULX^<tiJm^ :^;i^-7.j 

^x\.^^(n-rz'^tz. [tit^n-n^ 




;l(^ ~ n t>±^M:^A#)^^ 3 A t 
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PRESENT 




-§-. am. ft^. ^m. mm. m 



^z% 



Tl07-e4 
MSX^:'3'^'>Si«g|3 



L_X_>VJ LU\J mm \ 










iNrORMATIONI 



'>7fAV7S7rijytJb^±*u>^- 



MOON GLOW 



■STO7h/xj7r'Ji/t;bTU7K>*-K 







i?)^^sv> 



7> - 5- -CD?KSl(7)ffl!T''EVENr t 



J: fJ JIM ^ nS 'v - i 7'JHS*#'' 



WGGKC 




IS 1 mtiSII^!! 



^X-MSXv^^WlOO-^ 
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7U-V7h«±? 




^'J-VT'h'^iT'cl:!^!? 



m(nmm$ntzyy vy^Lyt 
uo-t(=4'^= —m.(r>mM.yy 

%±^zm^m^'^mL-tz(Dt'v\>s 

i:m£H^ h(Dt£(Dtz. PDS^A 

?*^ ^^it>fj:\^^t>{1^tzo ff^tz 

< ?^coAl3■ffoTt.lb^.^f-t.^* 
t L ^ ^ — S(75.K V >7^ 1- rffi# ? 

L < U^\ 
af)C^infc(75A^'*7iJ-V7 h 

■5). jy--. 7U-V7 hf x7« 



^mt)-^ h\r>x^ fzmmT'^m<ri 

77 h Vz^:4^lM-rs(75(J)fePt/i 
:bni.''7U-V7 htJiT"';: 

?T. ^C07U-V7 h't'xT' 

m(tc?)-rruv7 h tih^(Dtz, 

PC-9801(7>7U-V7 h'^xT' 

>iiff ^^ ^ T '^j: uAli A¥-r ^ 

■y hMSX(7)P00LtL^T7U-0 

It tA. ir^/ N° y a viiff c#ip L 

TtbL^^zl^4"o 
ftfi[== '7iJ-V7h'^xT" 

(i^ < t Xhf^(DAm<DJ9-Miz 
XoXi^iDtifz<^fx(r>X\ fF%(c 



g:^-17»^t?4f:eiLiRi^l 



p '^<7>4^T-^:!>f^7 iJ-y 

H^LTti. 7U-y7h7x:7(7) 

ffm(r>yj^(D~mw:izx^), msx 




7 hOxr(ns-*&4HSt-liffiL/;(^t, 



n992:^3^30BJ;(J. Z:^+-:^'y f^ MSX, PCS. ACS. DPI (i. 




mabTerm VenSJO se 

MSXZL— tf-(7>^>y h9-*-fc^<7)r^-CH:. *t 

ffl^ExA:^- K U ':^ i^ffimabTerm 52 

BRS-essCfflmabTerm^ — - — 5g 

BmabTermM5:tz«:/S(TYPE DIR FKEY) 54 

HmabTerm^transIt 54 

7t--A-K-c/A*^§mabTermCD1tW- — ^55 
mabTermil#B*B^ 55 



pool^:p^izx — 



. 56 



37'j-y37h'5i:p— 



58 

miSHOj'^ JV^yjK—P-) 58 

fflPMext(^s^® • mm':j-ii)— —59 

mpuarcmmmm - f^m^y-ji^)- — . 59 
gLHrdC»^^s • mm':^-}V) 59 

HLHa(S0^il • mm'^-)l) 59 

37 u - y 37 S >::7 X j^iftjift— BO 

FMTM(Dosa^7'7^ju^ii*:y-;u)- — -so 
EAEG(DOSiffl:7:?-r'jUMM*:/-;u) — ^— 6I 

H JTYPECDOS 1 X^m^'T^T. K^^^) -Bl 

@MAKI^^^^— $^-S1z-A-^ —62 

mn^ ! m.m.^{f-h.y — - — — — ^ee 

BLZCOM(COM-77'-l'JU^S$i ■ m^) 63 

BTODAYC^S^-^iRiroaTb^a^-rS)- — ^83 

BTREE(x<X-i7©x-fU^KU-^^^) 63 
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JiliV:7h0;^^ltJS!! 



■^y^-A 



ver.2.10 



mabTerm 

2An^m^zuuzyu~vy[-Oj:y^'^oyQ-\^ 



mabTermc75i|tili^1-;ltd:. 4'^ 
7.(1 fcjt^^J;5L/-±H.MSX2c7)liffi 
ISc7)V7hJ:Ufe-bfc'„ /tfc'L. 

■lDj:-^i:MC<V.^^^fco 7U-V 

w'MtLtzh<r)h^^^(7)X\ RGB 
r'^fc^S^/Co MSX-JE^I*3llLT 



(-^^j-'-^TL J o/z(tnt; mabTerm 
T'fel^ t>(i^ < ;!-- h n ^V >^ 

Jittd ^t(JmabTerm;!)^'g6<]c7) 
t-y h9-^Cg»i6t)(-#MLX 

CO □ ^'-f >^JiiU^ ib/)^ U Afflft 
>/=ltx-?j:<. ^^v h^-^c7)'jZ^ 

\.x^h\zWkrv^'^nx. ^- 

mabTerm(ii:T h^— — -^U 




t7="a^-i-'Ju/=7ffl 



ITiS A> mtm 

mabTermti g ^<7)t# ^ T L^ ?> 







(D%^\Z\t. MTM.COM^iSSr 

MT21 OM.LZH?:Mr»IT-i> t v MTM. 
Z(iW)'--Q^hiy-^. MTM.COMtS 
"^ru-h- \ 'J -y vcT^iKtf^^Bt 
oTM^S'-f 7'i:iif(#nTl^?), 
mabTermX-(±, l|fi^7 7'<Jl'^^ 

/\'— :> 3 >^coJ|^roS;^, M'f=R 

T'^'f7°^l,^lt5.c7)X\ OL^X 
[itt:iXJiCT. 

$)n[^-rcms(co4-(f^t. x 

r^ft^bfg^^nxi^'gKTiX. ^ 

M^^x¥n^.^nJ:^= 



[IB7?S A>PMEXT MT210M.LZH B: 
A>PMEXT MT210R.LZH B: 



XL^SmabTerm(i.J±iii7 7'<Jl^ 
lI''i''pXL^'5c7)X^OTS iX(J^ 

Xl^'5PMEXT?rl$^X. ^^i::^ 
fi^X^S3f^5tCMIf1LJ:T, 

JflJ?i5fL<77r-V7 hL/- 
7=<^^^mfflSLXlJH.^„ 



-yv^l5^^XL^?,A(a. 
A>PMEXTMT210M.LZH B: 

RS232C(7)ii^(J, 
A>PMEXTMT210R.LZH B: 

i:A:^"t^= iSSm^-y-t:— V 
C'S^tX^LL^t-V :^^ tAn^ 

A>PMEXT MT210DOC.LZH B: 
i:LX h' + j.>>h7j'-l';L'fe 



■mabTerm04$ilt 



transit S XM0DEM^1t7K-K 



hLXu-So C(7>MBl<7)*j;i^(fX\ 
mabTerm;$;^(z \ththt\i.^ 

X'^'bl^\~U^XK^'^^ Transit 
^ XMODEM i: l^ -^ fc 7 T -r JHe 

X(i, ^tXt.f^L<IStaJLXS) 
^(nX\ ^■^'bfc#0?,LX(5Llv 
mabTerm£JC(7)-fttjtZt). t.^^1.^ 



;b^;^^/c. Tfc. ^-y h 7-^(1 
p ^'< > LXWmJkM.h-%^ L 

VP-KLfcUfSl-tt. 2. 3{|li 
C7)=iv> K^tS^^^zttX-h-^/cc 

■^O^IC < V,^^L:.t;:)mabTerm^; 

(tir. -(754^^1:^ < 'JM^x^ 

mabTermc;5f$l^:^^ L o A^ '; V 
::^:S'-LX[5Li\ 




RS232C+t5^affl 



gi!l75aA>mtr 

MSXxt:^(CR3232C:b- h U 'y 

/-r^-g-i*. MTR.COM ^^JJT, 
MTR.COMCOR(iRS232CC?>il:a:^ 







$riaT^;R5"r ^f^R/". MTR. 
COM(iMT210R.LZH^arff1T5^ 
X*#5. 

RS232C*- h U -y i^itiM.^T 
X+~^V-— A^Cb^TO^nXl^ 

:^- h U -y v«mi-ffiM(OWt(t 

nXL^So 2400bps(7)^^^ifi^ 

t>co'J:t'^^^i•*Stg^«ttLXL^ 
%U. MSXlit5'fe)v>>(it.^t 

li^Jffl^X*ct^i:^.^^AiJ, r 
(;)1iEStfo#;lX^XJMlJ4-L^^; 
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7r-hp^'^>© 








mabTerm>X msx-m 
mabTerm>X msx-r 



LT^ctOo mabTerm(C[J^^--'y 
ALMtJAuto Login Macro^H&L 

ttit;bhi3^\:if)mM$ntzh(D 

ti- h 'J -y v^miil^*^^ t^ 

-r yuAnr, msx-dosi7);i v > 



i>c;)A[iA> MTM MSX-M. RS232Q75 
A[iA>MTRMSX-R tA:^lLT<^J: 
To mabTerm^^^KLTglKi&^H 
m^^tHmib^littz. M^'-Y 
7°^ R^ -r 7°T(SALM7 ? -f JU/)^' 

Sytz^'Tti^-ScT^T-jiSL J; To 

nX t'y t \:i-:f^tim^i)'h. 
'ezX'^-§i-(D\D^Xt)L^lo '^ 
izPassvjor&.tM^^titzh^'^:^ 

'7-\''^xtiT^. znx-mma 

ffLT. mabTerm>^^:^?nfc 
■o. q[RET]t A:^L.TmabTerm 



mabTerma)fc=b^=l"7> K 
I x^xs^ji(^''::7>n-K) 



PJ-— h □ ^'-r >^^ P (ALM)(i 

(ntzii>(nh(7^fz[it\ i^\.^-f5'X^ 

v-^^x-^i^t'^mfz. nm^z. 

DDX^Tri-P. AP*ffl(7)K:^^fi^ 

'j: n ALM^^iL— If- i :S-c7>^T' 
y''n~Y^tiX^^^(r>x\ i&<7>y 




^Cfyn—\«Dy5m I :?^*:/^p-K073/^ 



niabTerm>l filename [RET] 



mabTermfJItx # n4- ^Hl il' 

*-f7^+:^ ^77'-fJ^«r■y7°p — 
K i: y^ > p *- i-'CDMz-omzi V 
>K^1t:l'rJol-r(i; ^-yh^- 
^;fi-b7iJ-V7l-t7xy^^C 

Ans::i:*^'T'^?.o 

x=f:^ l•7T'r;^5:5^0>P- 
Logmmm)(nmtz. ^^-yv^y 

^*fei6fcl.>£C6X SELECT ^ 

-^nLx^x 1. -rst. 

mabTerm> t JUS iCS:^ ?tl -5 
£J'f/':fo Z.tll3:mabTerm(7)qv> 
Kyn>7°hi;»^T. ZC;0^ii 
mabTermCL^^i.^^4"=i v> K 

fi. mabTerni>?[RET]tA::^L 







bmabTerm>l logfile[RET]t A 
:^LTA,J:t„ '^oizMSf-tt'j: 
^co^■ftfo4•L^J:)hlo :?''5>P~ 

logffle ^: 1-^-5 7?^JU:^—AXt-' 

-f ;? ^ (z 5''7 > p - h' ? n^OTfc'„ 

t)%^A7T-l'JU^— AtJgEbd 

Lfz^^t ^iZit. SELECT=^-^ 
ffLT. mabTerm>l[RET]^/c 
i-fXtit^o :?'7>a-Ktfc7 



niabTerm>t filename [RET] 



i-»<7>#ofzyp^7A^:5^ 

^^■y h7-:>H7-y7'n-l--r 
Siz(JT3V> K^-^T, T(J 
autoType(@l|Sclff)(7)Tfc; T-;- 
yn— KTS7 7"fJKi7— yp 

mablermOTA-DXi.^-ST'-f :^1> 
lZZi\^-l,X^Zo, TI1V>K 
(iLa v^ K i:m^X\ SELECTS 
-$-WtX=iv> Kt- KilA 
r} Xi}-- b. mabTerm> t myfile[RET] 

mjiTU-r?). -nxa-g-A^o 

/cmyfiletl^T 77-rJU1<.— A(7> 
77"fJU^7'-:'yn-- h"X-#?)„ 

^izmi't^(nx\ L=iv>Kco 
J: 9 \zl^in 'J ^ffiSf ^'£^(14- 
^-^ fc/:fL. [5l^!lJ;^Xti. Z 
nf:*(tX-[iJE^IZT-y-/n-KX 

SELECT+-5r#LXmabTerni> 
wlfy[RET]tj5-SL;4-L^?rtXA^ 
ibJ''y7°P-KLilLX*ct0o 
T-*:^ t-7T-fVK7>7"'y7'P — 




•y -ti— :^ ^n^mB t^±.x<r)m 

fe^^LXLo*^'jv;^:?-LX 

l-tX-t£<^ /^"<^'J7j'<JI.^E 

C-3UX{S^X-Mn^C0X\ "t-y 
t>^#MLXIJLL\ H^dlJx 
+^ h7 3"fJK7)iS®ft?rv:^5' 



^•MSXV^V^IOO^ 



^, ftSS-I.^o-t:. tr^t^/i.^J&O^i-e MSX-FAN«^SB»^S 4fcffiiffi^ 
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mabTermcD^iA! 



t3„ MSX-D0ST-l^S153V> Ki: 
> \'— U -< t [ J^T ^ (3 mabTerm 

■r^CtT\ mabTerm:*:'^(z(±:^j: 
fiiatJTranslt^XMODEMirW^ 



?^i#CO¥(-J:-:'T. mabTerm 
±i3^ibMSX-D0Si: IrI l; ct: -5 ^j::? 

X4-<. il-h/-@#X-«bI^K; 

?i■r■5:li:fcx•^-5^fc% :t-/\' 

- u-r yci ^^ A ?:fF^-r-5 fcife 

^-^_bX'¥i-An^ :: t ^^X'^ 

S, mabTerm^fS-^XL^^A;:)^^ 

7-:^_tX-i^r?F^?tiXl.^?)o f^ 

S #(7)^XmabTermc7>tSI|:^^*;2: 
^^■& ■oX'i^/-';!)^6§;L L^ct :fac 

?X^CXSt'ti7iJ-V7h 
O X 7 A¥(-'£^'d: 7 T-r JL-teci 



mabTerm i$t: 7 1 



^ 


WM 


^^^ 


— =1 ^= 


r^..^ 


3 f 


^S 


te 


^ 


S 



asE 




XMODEM 

yr-f ;ksl=3v> kx-j^-^vp 
-Kx-#%(tnt\ coM7z-rjL' 
4- ir«^ \'-r :^ ij 7 T < jumti^ic 

9 7y-rJneK^7a h^Jufy^pL 

td^itXfzCDtz, T:x.=if~^'yi-X- 
ItyransWij^^^fzibXMODEmi 

-y-;t!-^■?nxL^4a^!tnir. # 
(7)(i t ^ i:'<7)^ -J h 9-^ x-ti-y- 
-■f.-h?nxi^?.(7>x\ znv-n 

XMOIXM.MTa J7°P :?*7 A-tN-t' 
:xc;)t'i- X^(75MTXM101 . LZH?r 
PMEXTX#f;mi"-& t tii5lU^«*S, 




vAfribXM0DEM-i:-?''3>n— K, 
XM0DEM.MTC(Z(i,^.^-6L^-^'i■:t 

5'-7>p- K<7):^>4fdSt{i1t;ix 

:^v hcT)^;:^ hllXMODEMX-CO 
mim^isy}ilXf}-h. mabTerm 
> ! xmodem r filename[RET]i; 
A:']-rn[fUl^corf. 



type dir fkey 

mabTermm^tl ^ JJii jif f ^ ^ 
—/\-—l^'f (7)^:^-117 h tm^^ 
cnt'-Z'DZ-Ofz^ ypiJ'-^A-y-— 
t:'::^ (7) MTCS1 ,LZH ^ PMEXTX-fS 
m.t^^. MTTVPELZa MTDIR. 
LZK MTFKEY.LZHCD3OC07T 

T -jtPMEXTx-^:t-r ^t.mi 

7 7-l';K?)TYPE.MTa DIR.MTa 
FKEY.MTC!:)^tiiJlU=.*^-&. Z(DX 
T (CmabTermtT):^— /<— U-fCT) 
lij;?^(iMTCt;3^ft'bnXl.^«,„ 
;t — M'— K 5rllft-r^{- 
(J, ! -^^ K^ris^T. L=iv> Kt 
fWlUiTlZ, SELECT +-?: J? 
LXIIV> K^- \~'[Z^-:>Xf'h. 



mabTerm> ! dir[RET]c;)J: 0(C 
>j2t^tmTX-^^. 

Z(7)3-O(iD0Sc;>=lv> Vt 

m?m\^mt^n^x\-^^. dir. 

MTC(imabTerm> ! dir • .txt 
[RET] i: 9 -r ;l. K :'3 - K hi^A. h 
<DX\ 7'-y7a— K'r^77'-rJi' 

^m%tr^(Diz^mtz. type. 

MTC(im3bTerrn> ! type logfile 
[RET]mct:-5lzLXy7>R-K 
L fc 7 r -f JU^rlf COTt-if ^IJ= 
mabTerm(J7y >:?'■> a >=¥ — 
^^^izmmLXm^=b(r>X\ 
mabTerm > ! fkey l.msx01508 

CRET]tux. x<mn±^^m 



Transit 

T'iX^ — ^-y hX-tiTransItt 

XL^T, zn^m-^x^<'f-r'}y 
A^X'#s„ L=lv>Kx-fc(i^;^ 

i:'(7)77"f Mi:S^7>P- KX# 
5.(tt; Translt^S:b4-Lvt^'7 
>p— KX-#4■l^fc(7)t)J?)S<DX- 
Z COTranslt%- mabTermX"fs^ 5 
•t^C-r^^-^^'-U-ri^TRAN- 
SITR.MTC/r. TRANSITR.MTC[S7 
P^r^AH;^— t'j^tlAoXt.^'S 
MTTRS101 .LZH^PMEXTX-1!S/1S 

y7^)V^yo>n—vt^\z[t 

'X(r>^o\zr^, srr;^*-^ 

•y hMSXCP:/'r>LX7'J- 
V7h73:7'^||;iX$) -SPOOL 
pdsCfi^C 9 . i£;#4- 7 z -r ^U^iM 
^X■;^'b, POOLroy-n— 7p 
>7 MZMS.'POOL<pds>''t^ 
7y^^nfzhtnti^P0Q\JDM-=L 
-7'P>7h^c= 7'P>7h:^^'i 
down transit [RET] i:A:^lUX 
TransitX-cTj^-'^^P— h'^^ilt 
f-Si:. "Transit^t31i)L,X<fc" 

?Lv" ^:^^$n?.«xz-x- 

mabTerm^II]c7>Translt^4atlj-r^o 
SELECT4=— ^#LX, mabTerm 
> ! transitr [RET] tXt3-^n[i 
t-^-tz. 



7-J 7"n- K 

Translt(i^7>P-h7i{tX 
4-<. r-y7a-K!itSA5o 
T=]-7> KX-c7>:P'y7P- Kfc't 

S:^ft(ti:moXi: #f#^fT^ 

nr, Translt^^;l(3;T'-:S'ff5m 
U^^nciWX-S'C-fc'o Z-y^P- 
KC£*7P:?'7A-t^-t':^(7> 
MTTRS101 . LZH ^MiM. L X X-# 
^.TRANSITS.MTC^iSTo 

w Z X-(±P00LX{J4' <.t:^=¥ 
—^y h±.<7>XT'-f 9—iZTy-/ 
P- K-r5.ii#^1^J(;i: ^XlSi^ 
Let-). 7':^+-^-y I~c7)h-y7° 
y -a. — *' e MENU > edit file 
[RET]tA:J3l-*a:"xx-f 5-=! 
v> K>>''^ x-T'-i- ^CDT'P > 

y\^tWr^$ti^. Z(r>-/a>y 

h ;5^ b t[RET] t XtiT «. t Tran- 

siKD^s^miJ'^mtz, *y y 7°n - 

K or ^-'^VD-K (u/d) ?:'t 
m7j^$rifzhulRE\'ltXt}LX 

i: "Transit ^mWiLXitz^i^" 
i:^*$n*„ ZZX-mabTermfi] 
(r>Trans\t^mW]rtlii^l'(rifZo 
:y7>P" K tdCct T (3. 
SELECT*— ^WLX. mabTerm 
> ! transits -t filename[RET]i: 
il-h&lsb\£\.^\.\ filenameC(i@ 

'^xi^r>x^\-'tzyT^ji'^in^ 
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itiabTerm 1^27' :? 'J -ir— i 



mabTerm (Z)tt^ 



*'3?fct^+':/S 



mabTerm C7)^tfe^K;^T^:t 
-^ <- U -1- ( JZL— tf- @ #;^^^ 
Z t fc T'^ -So HI^IC mabTerm^ 



^'<~l^^tznT-f£<. mabTerm^ 
ft!ic?)7U-0x7'i:lllUJ;T(z. 




t^/Frodo(msx02368)ifi 






-fT-tinCL^A^ mabTerm(7>Jlf^t 
«^^t < r^tzeb(D'y—Ju^m 
ftfc->'J— Xfc^ mabTerm(i7';t/ 

5:^7 * > h ^S3Er 4 :: i: t^x- 
^^(7>ttt\ znitt(r)tzit)<nm 
Li^7:r>h%Si:4ftfcfc<7), 

y^^—^v hPCSOTPOOL msx(C 
ii. F0ED.ARKi:i^-?77r>hx 

-^■tzia^v^zU^-tzh. %%<ri 




^©fte 




■ \yOn3nM''w//_ . _ „ _ ^ ^ ^r. ^^ff_ y^s^iuuc^- i _ _ _ _"_. 



f^#/SHt>t;(msx05514) 



^ T < ti ■£ ALMo T ;^ * — ^ 'y h 



y\— U-f fcl\< OA^*-5,„ QUICK- 
VAN^YMODEM. ZMODEM^'fOT 

CO, mabTerm(3:DOS2fC[3:ifi-|;t;L 
TL^4•LvA^ mabTerm -hS^Pj 
D0S2mH:fyT'T 1^:? h 'j}*f^^ 










mabTerm«S*(i, MSX^11§ 
(75 V •»?i<aia IJ ifetofc Z ^ (C i 
X-^iy<r>\,t^t^it. ^T-(J#?: 

(tr. ^^«PC-980Kjrir(7516t:' 
■y hv-»T'fc3l^5rsS<^»#-r 

*c7)(i:it:^4' z i: fc'o fc. msxt 
RS232C:^- h i; 7-:^(~(ififtm4- 

■5^(tT\ mab^ACTi^T^Attl 
^nfc(757!)^'mabTermi: L'.-? ;b(T 
fc%«:*B[iRSZ32Ci;fflfc'(t/-:f o fc 

"Txz. ^-f-'Ait]— h u■y■:^cDa— 
^ fc'o *J«flmmabTerm(3a:*:^A 



n-r. '>L-r^^ir'yyLTu 

mabTermti r r S T-fiK^ L T # 

— ^— .S.i:L^9^(tfc% mabTerm 
(±^^4ffF/io fc MS-D0Sffl(7) 
jiffyy hCTERM^gSULT 



MSX-Viewffl<7> mabTerm [Z fo^ 

^T, mabTermlCfi^T'A:^— 
1^ iJ -y vffl i: RS232CfflOT2O(0 

0^ < 7°;: 1^-5^0):? -r 7'*<$)S 
(Mi. 0:S'-r7°(iR:S'-ry^$ bC 
SiI'fbLfcfcC7)T\ 2400bpsJiLh 
T-iifiLT tSl^W^^X t— K 

fccT), 2400bpS(r)ig5iI'&T'A^fS 

J';=l4^— <7>RS232C:ft— h 'J -yiJ 

MSX-SERIAL232X-iJ!S*'':f:L^(75 

ft^dmabTermmPSi L :t 7"-> 

mabTerm^tB|:^-r^i;#(Z. A> 
MTR-o[RET] i:^^T*!*-J:-5o 




msx01508(MSX] 
|; pcs24862{PCS) 

• ": ■• PFG01345{ifTY) 

^^isA*tJMSX2§-Kofct?);5^ 
MSX^0tU^lV 7U~y7>'':7x 
' Tm^^\zk^^.hX, mabTerm;^' 
.jtype4-t:'ff>y 7 f- ^gr^ -y h 7-^ 
XX'iJfift,, -feicfeDOSzmco'y-jv 

^IJf^^, MS-0OS*^6MSX-DQS-^ 



^•MSXV;{^V>100-^ 



ioo-5-te^. K*^t- 1: T r?!.' J t„ 200-5-. I'^soo-f. ^^^40o-5-te,^«^i: fe, ■^■'L^. 
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POOLtt7'J-V7KOi70 



P00Le/7fA^7^1zX 



pool < pool(7)^flri > 

forum^ magazine^ pdsi: 4IKSS) 
5). begin{iPOOLv:^-rA^|$0(Z 



i:\ magazine(SMSXy':*D'v>CO-> 

L^^(7)(ipd5fc'o 
$.tifPOOUtZA.^A:m\:"t 



SfflxCD*- 


o-[<z'mm 


L..... 2 


Enter (. <Q>uit, or 


<?>He1p 




P0OL<pfis> key 






^5^rss:?fi|^t^s 


Lr< rc3t>. 




mabTerm 








21 items found. 


Enter S. <Q>uit, or 


<?>Help 




P0OL<pds> dir 






No. File Name 


Type Kind Author VY/MH/DD Bytes Access 


1211 mttrslDl. ish 


T COMT msxOtSOB 91/10/18 21)720 


54 


Desc: mabTerm 


V. 2. Oll:overIay:Translt ver.1.01 bug fixed | 


941 mtxmlOl. ish 


T COMT msx01508 90/08/14 U965 


183 


Desc: mabTerm 


ver. 2. 00:overlay:XMODEM ver.1.01 bug fixed | 


92S mt2D0o. ish 


T COMT msxOISOB 90/07/09 23895 


IIJ 


Desc: mabTerm 


ver.2.0fl.o:for RS232C (tviia^TA ■)]' *7t>) 




913 mttrs. ish 


T COMT msxflUOB 90/06/13 14244 


268 


Desc: mabTerm 


ver. 2. 00:overl8y;Translt protocol 




912 mtcsl. ish 


T COMT msxOISOB 90/06/13 22200 


251 


Desc: mabTerm 


ver.2.0[):overlay:'dir", 'type', 'fkey' 




SOS ntbf in. Iih 


B COMT msxDIBOB 90/06/10 26752 


66 


Desc: mabTerm 


ver.2.0!]: document for making overlay(f 


n) 


908 ntbdoc. ish 


T DOC msxOlSOS 90/08/10 34618 


180 


Desc: mabTerm 


ver. 2. 00 : document for making overlay 




907 Bt200fin. Uh 


B DOC msx01508 30/08/10 29056 


59 


Desc: riBbTern 


ver. 2. 00: document in 'fin' format 




906 iit200doc. ish 


T COMT msx01508 90/06/10 33927 


299 


Desc: mabTerm 


ver. 2. BO: document for RS^32C!lM0DEHfi-^y 


•)V' 


9GS mt200Di. ish 


T COMT msxOISOB 90/06/10 23076 


255 


Desc: mabTerm 


ver. 2. 00. m : executable for MODEMcartr idge 1 


#.#-|(Mark <HET>next <P>rBV <C>ontinue <Q>uit 




DIR> 







POOLi/7,xAa)=i v-VH- 


m 


PDS^'f ^^UvX^APOOL IPDSI 






1. ■< yp ^ P'- — '^ 3 y (info) 


2 


5^-^=7 U>-:^?A©isEtv:^ 


3. yy^ll'CD^l^l^O^m 


4 


esyn h=lJH&:S (setup) 


6. J* - j.-^/T^a'J^:t (menu) 


6 


•S.'km^^ CailRpr) (browse) 


7. -nm:^. (ais?pr) (dir) 


8 


-OM^SJ^ICIMS (undo) 


9. r-y^n- h' (up) 


10 


y-jyn- h' (down) 


11. :^T®77-'i' ;[/*«*? (all) 


12 


S^"?^Sg (number) 


13. 7 7--l'-'l/^T-^sS (name) 


14 


rP^O 1 DX'^m (author) 


15. H#'?^3^ (date) 


16 


V-4XXmm (siie) 


17. 7^-kxm^X'^m (access) 


18 


y T '<)\'mmx-^m. (kind) 


19. fSm^-KBJtr^sR (key) 


20 


SSbt^7 7-1'Jl'*«tR (new) 


21. ^T (quit) 









£n 


er #, <Q>uit, or <?>Help 






P0OL<pds> kind 






y 


j-^J^CDaSiJ$Sc¥-J:«#?LT< /-cSl 


\„ 




1 


Netware (NETW) 


2 


Communication Tools (COMT) 


3 


f i ie Converter (FICV) 


4 


Device Driver (DEVD) 


6 


Fi IterlFILT) 


6 


Basic Files i Ut i 1 ities (BAS) 


7 


Documentation/General Texts[DOC) 


8 


Desk Accessory (DA) 


9 


General Ut i l]ties[UTL) 


19 


Games/Fun(GAME) 


11 


Music/SouniKMSIC) 


12 


Graphics/Animation (GRPH) 


13 


Library/Include (LIBH) 


14 


OS/Languaee (OS) 


15 


Business/Template (BUSI) 


IE 


News (MEWS) 


17 


JokesfJOKE] 


18 


Data [DATA) 


19 


Otfier[OTHE) 






KIND> 19 






65 


i tents found. 







^'oya-\<0y^iz7MmT:^m 



Enter #. <Q>uit. or <?>Help 
POOL<pds> access 

150_ 

Select 1: l^T 2: ^C 3: a± ==> 3 

Just a moinent. . . 

128 items found. 



POOL pds(r>y-zL—t)-'hd\rt 
Xtlt^t . y-f—y t POOLtzM 
iiLT^S7U-V7 VO:!LT(r> 

\.Ztz<$Khr,X\,ts Z<D'^t^h 

i-^<75^L'-^V7 v^U-t(n{tiz 

Wz.^ ^~T-POOLtZ[i. U<-^*^ 

(n^i5'Mt)mm.$nx\.'^^. ¥ 
7T'rjut75®sik ^mx^z-^tn 



X-i^X-^^hmZo tfz. 7t 

lZ^<7)^f'h. T'-yT'P-KLfc 
A(D\\ypTv-/n-\--LtzBn^£ 
t'Xim. tl-^^fzJ:iiZS&^(D 
yy\'^m)'^VZt^^X'&^o 
~tif£h. :*cSt?)7U-V7[-'f 

=bMnz. 
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^'oyn-\<{z^[^yv\ 



AizM.m$nx^^=byT<Ji^^y 

^=^— J^^ translt7°a hUJk 
ZM0DEM7°P V^)i'(D2W^h 

K-r?)<?)t IrI c t #ATi.M.\ 



U-J^5tT'J''y7°P- K?nTL^ 
-5V7f~(rBgLT(i, transltyp 
h p;b^ZMODEMyp ^ PJU^ 
i^l'SL-^t^^i^^ ZMODEWyp 1^ 

J;-9fc'c translt7°P hziJUfc^T^-' 

Tiif^oci:!!)<T"#4•^.^;!)\ msx 
TERM^r T'C^:^ U /z mabTerm 

translt7°P h P^UT'^^^ >P— K 




• DIR=iv> V^^'ri'ik. y'-^VP- KL 



• 5'''?>P— K13,POOLc7)j^-r >> -J 



transltCDJfi^CDSETUP^ 



Enter #. <Q>uit. or <?>Help 
POOL<pds> setup 

* 0: ASCII Transfer 
1: Transit Protocol 

UP PROTOC0L> 

ASCI I Transfer 
Transit Protocol 
2: ZMODEM Protocol 
DOWN PfiOTOCOL> 

* 0: PROMPT OFF 
1: PROMPT ON 

DOWN PfiOMPT> 

0: PROMPT OFF 

* 1: PROMPT ON 
DIR PfiOMPT> 

Enter t. <0>uit, or <?>Help 
POOL<pds> 






SETUP-I^:/H: 




$}^zt[t. rx-[zm\.'-tzxt^ 

SETUPS v>K!3. ^c7)9%C0ir 
(Tit^^W^t ^= transft7°P h a 







DOWN=IV>K 



7'^+~S^^T-5''7>P~ Kf 
Si:#[i. SETUPX-co'^'o>a 
- Kti-fi^fflT-S^P h iiJU*^ 
#<7>'ASCII Transfer'll^^LX 

h. iifiv7 i^c7)-ieiifci4g'^ 

'DOWN L0AD*4-irc75*St|^^ei 

Lxi-^x-^-yt^yr^}^^ 

ftV7 h(73*ISiff;?it'4-f §-11 
V7 i-(7)V-:iTJU^#fi^LTfe, 



■translt7p H]Jl/ 

transit yn h zi JU (UT tran- 
sit) ^^ 9 II (J, translt(I5ft)S L fc 
JifiVT' h ^« -;'£'#*% -5). 
mab termCD:^^, :7t'— /<— U-f^tS 
IIT-, *ffl<7)trans!t(7)7'P^-5A 

ft 77 h(7il5iaW5-#SSLTtf> 
OZtlZt^tK translt?:^^ t. 

'T-r ^L' ?r 5''7>a— K-r% 

^, POOLC^it? *^T^.^■^>7 T 










ir774^-w^7Sa)33^6-B: 



^[fi|(75!f^iS^4', 7^i^~^- 
■y hMSXi:*,US-r*\'92^3^ 
30BJ:U. r;^=t=-*-y h MSX. 
PCS. ACS, DPm^v—\iMm 

77.^-^-v\-'.zmfu m-^^ 
' titzMx-m^^ti^zt izt^ i) i. 



5^w^T-)2ooop^, smm^m 
^tz%^. 3^z'tiz2op]cnmm 



r107-24 

7iJ-X7m«liJt^Jl/ 

7^7:^-=i^'y|-iMS§^ 

S03-3486-9661 

(±, B. mernXK : 00H7 : 



^•MSXv^v^>100^ 



s&^^-Ti- i;, f^^t ' ^ L Jiit'i to 



li^so, it2t«i'- 



t5'c:j: Of^-^l Li-r„ 
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*^K9-*-!2»SI©"7U-V7S':7i5' 






ISH.COM 



7t-{}IZVM-^ 



it* Ishizuka 
ifS pcs20210(PeS) 



v^\ 



D0Sc;5TYPE=lV> K^fSoTS 

■^ili® *^ <' *> ^ <• ^ ^ tr ^j: -5 T 
\.^X\ ^N'vziviiilT-r— :?^^ 

'^fsi^-fjx -^xzt, ^n^^^ 
<75:5^Kc7D#ig u y-z 'isH' (-1- ■> 



isH(i^N''r:J-'j-7r'rjL'^7" 

MSXffllSHc;)«SlffiS(JISH110EP. 
COMfc'. ISH.COMtZ U ^^— A t T 

77.+-t^-y h MSXtT^POOLT 



Cowiatit to 1986, l»r bu (1. Ishizuka _ ^ , ^ 

fti fnaw [(/rl/al/q)] [/c[dO][/Br!J:l][/9[d:]]U[d:]K/ndJ][/«iJ:]][/W] 
Wish ffiw /sECBls!?)] tUI/Bl/^UI/'l/fitd:]] (Ul/e)] lAlm}] 

/r restcre new file(s) /a ^ restore all ftle(s) 

'H restore with westion 

/s store a JlSe fcrtat ish file /s8^ saw as /s 

/ss- store J shift JIS forsat isfi file /s7. store a JIST -toriat ish file 

/s3: store a JISS forsat 3 lines ish file 

/c CP/fl jnd/or rSX-JOS /?: other OSs 

/i (tS-MB yS : OS-9 

/u : UNIX 4 : all GSs 

d ±i<jt nm (ex. tt) At- iron Oi and Lf 

/r no escape sewnce /e : Kcap* sewena 

/t . title nm rmiber (B-«535) 

H nitchK ve not specified, /r, /c, and /t vill be muied. 

ish ilirarHl md. 



• A>ISHa:/--ltn%iii^. ij ?->*-%}fri, ■-^JL-y^ v-tr--J^A<^-FSn5. 



ISH-COM0ffD73 



A>PMEXT ISH110EP.LZH *.* 



:^(;(J. ISH(7>Kff/'''— -ya^*^ 
ISHIlOEP.LZHi: l^ T :? T -r ^L/^a 
X-AoTl^?). PMEXT.COMtlSH 
nOEP.LZH^#CD7=-i- :^:? (3=1 1" 
— LT. MSX-DOS^^iftLfcib 
A K^-l"7'(Z^C0=it:— Lfcx-f 

A>PMEXT ISH110EP.LZH •■ . • 
tmfri>t. ISH110E.DOC 
ISHIIOEP.COM. README.D0C(7) 



^l-t}\ D0C(7) 7 7 < JKi' K + 

+::^ h77'-fJL''i'OTT-, *i:T"^ 
:^■r%JTYPE^J:^:'?:1sg^TlK^X■ 

A>REN ISH110EP.COM ISH.COM 
nH W^. iSHi:i.^O =I'7> KT- 



ISH (T^XNT^-fib) -►;H-fU-77^;b 



A>ISH filename 

mSfi-tWSHcfiyT^Mt. (J 

h-ft? n/c7 T-r jt-d-^TiSHv 

A>!SH FILENAME 

P00L->::^xA^A-f;5'ib. t>J: 

-^(7)7 T-r J^€T•m3&<7)ISH7 ? 
n^'nfci:<7i7T-fJHZ^DcLT 



<nS. tfz. ISH.C0M(i7T'f 
JitiJLXm5ctT<n^C^T\ m 









i^Fr')hii%bi|itiirD!»n 






tOIWBinrjiBi LU 






Oidi iiMlin.itf 








.r 


Cowi** (C) 1586, 1987 h r 


e 






121 iffden.lih (c) uu 
*il( r«tir« tmrtiftUv. 

ID! 














yV-ftlJ-77^-<Jb-*ISH(7Z=^"'?7'-1'M 



A>ISH filename /SS 



^C07 7 -f ;L'?rlSH7 T < JK- 3 
>/ \-- h t^^'jkfz,. tz t Xtf. 
TEST.UH t V. ^ 9 7 ?■ f ^^ ^ ISH 
VT-iMZT^i-it. 
A> ISH TEST. L2H /SS 

i:-rntl TEST.ISHtL'07j' 

ISH77-fMJ^-y l-9-:?X- 
i^lSftco i: # * 1- 7 ^ :? — f bfj: 

MW^^. h-h^A,. 7-^y^\-y 



<4'5.o zcntzi^. isH.coMti. 

ftiST 5 LHa^PMarCj: i::<Dl±m 
7p^'vAi:^T-(S^n^- fcA' 
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PMext 



NCA000057 (NIFTY) 



|i^ 






/5'Xh^>5'^ 



X\ ?^ny'f >a-K?:3Ea<f 
?)/ci6{C7 :i"i'Ji^-y-'f Xti^j:^^ 



77.^— ^^-y hMSX(75POOLlZ 

X'7. 9 > :?'— K (- Jj: ^ T -S C7)*\ 
^fc(7)„ PMexttJ. PMarc^fS^T 

'rJU*^^EST1.PMA''S/-(i'*TEST2. 

A>PMEXTTEST1 *. * 
A>PMEXTTEST2.LZH -. • 



PMext®f^!073 

A>PMEXT222 



PMEXTSi^fc/BSc'nTU^-g.^ 

yn ^7 At*-- t';^^1lT A(J. 

PMEXT222.COM^ffeOOT'-f ::^:? 

K^-ryiiAnr. msx-dost- 

A>PMEXT222 

t -r=hfz{-tx^^mtm^<7yx\ 



Extract? (y/n)(;3^tLT Y^A:*: 
L T'f'ntXS. t \,m^\~ PMEXT2 . 
DOCilPMEXT.COM^^SM^^n?). 

p-KT-sAttv POOL PDaz)n 

76. pmext222.ish^:?'0>P— K 



fr«4 ^'srsiW 2,2 for 34K (P/«(Zffl) 
CMy'ight(C) 19«,l»i by Voshihito llino. 



. i <jrchi«> [[dev KepitfyiMe)[=«i]enaM>3[/A/B/C/lA*N/Pri4'M]] 



Opticas: 

/ft Extrjct Kith ittrilmte 
K - Owct CK of iiMfcers 
A : tlSFljif list of ■»ii«rs 

/H ■ Nwdisplaij hex-counter 
'C Mori with <we5tion 



/B : Sinary file(i¥iore EOF) 

/I . Iixfi-fferwt to ureatchir?! ee^^rs 

/t1 Itordisplay sesorarduiBs 

-f . Cwtput by the paoe 

/H Ouffwite Kitkmt cfjestion 



, ET BSM _ i display list of bMws in BiSAt-FTO 

WTE(T E SM l.CaW. , tisplay list of CCT-Kiter? in B M.E.PtW 

►WET Sff^ B- , Ertrstt all M*ters in SM.P* to *ioe B 

fiWe<T Sfl^ Ktf.K=i.WC . Extract REM.ft as PEW.IOC in SftlS.FW 

WWgT Sfi^ ™-^.ft . tia>lay contents of REflJ.HE in SfWE.PW 

»ggt atf KETHJl , ExKuU TSJI.COn in SfftE.PWl 

f«W>^ SSJE K , Cheek all m^wts in SiWE.FWi 



'^tf^S*^^:*Tfc^ 



f PMarc 



puyT^^)-(mm-yw=jU 



±.(r}?ueaX'mmx'^ S. 
(r)PMarcy--'o ffifii'y — ^^^i^ ^ "^'v 3 

1 ^fecT^T-V :^^Cl^o(fL^7 7-i' 
<gi^:^(iS5*. ^J;it^. testi. 

TXT?:, TEST.PMA t ^, ^ 7 7"f ^U 
A > PMARC TEST TEST1.TXT 

x\^\-^(D-fzo mnt^&^^mzy 
-te(= fc i mmwi CK?i^:6\ com 

r?F^r-&= PMEXT;t)^J±iiiiS?tl,XT 

pmexta^'j'j: I ^ t m^x- # 4- *^ o 



PMSFx. tLxummr^Wrrt^ 
{^m^t\c.omzf£^xi^x. ^ 
nr^fzmzy^i$^^'}izmmL 

;> ;!)^T'^ ^ z i: tz Ji -5 ) 7 T -r JL' 
^■ft^r^PMEXEtj:A,X\-^o<r) 

PM7 7'5 U"i:l-^'5^[t/'i= 



irtiiiLidit.t^.prn (let) 

"1 .SCT Cwrtsuq BtFi/»F( I7.EI^ Wirig kn. 



tPMarciJ, MSXffl(7>mfflg7— ;k75 + T- 



LHrd 



^*<*. U-W" <r>Mz{t. PC-980Kd: 

t'c7)THa*^f^^Tffi^?nTl^ 

•jTO^^ncWmt^z^tt^x^fi 

L\ _L'CiSS:^LfcPMextH^;l(i\ 
PC-9801(;5 LHaT'/±ffi L /- 7 7- -r 
;UT't. MSX(7)LHaT-ffi^Lt7 



TF^MHC02622 (NIFTY) 



T<)\'X'hmw^'^^<nx\ t^ 
hx-mmttiii^f'muy-^^K tiiM 

LHrd(JLHat-tz-v hTT-yya 

MSXT'LHai: LH^d^A¥L/■zL^A{i^ 
741,742,743,760,761,771 (Z K| 



LHa 



^1!3^^ 



Jl'tim^(r)''\-Ha''f£(Dtzt\ --^ 

1C0LHac;5At.v\*— i?3 >(J 
*LHarc'i:i.^O^BfFT\ at ^(75 

yp ^7 AT-sffi • mmx'^^y 
-Mziit\ Msxco^^. ^es^ 



ITS MHC02622 (NIFTY) 



-y— JK75„i.fco(r-^ttT LHarc 
^^^W? nfc„ ^tlA^LHai: LHrd 

PC-9801T-(i PM arcX'l±m$ 
tltzh(DiimmX^tj:\,.ii^f£<7) 

x\ mmzzfzt>hfj:^'':^^y'( 

-J ^ T-'-:? 4- f(i LHa ^-ft Jj- ^ c 
rc75LHaT'JBi^nfct(7)(i. 98 
C7)LHaT'feSP|-r ^ - t *'T-^ So 



^•MSX'7:^V>100^ 
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y'j-v-pv^jL 






FMTM 



^^ PACKMAN(FALCON-NET) 



D0S2Mm77^}i^my-)i 



(i.MSX-D0Sc7)=l v> V'^^-hU 

fi^L/zU ''j:t'4't', u;^!.^^ 

T'^^v— JK;)Zt„ ilMi-^Ttf 

^*LT5^$nTT.MSX-D0S 

ZOTTMTM"(i.MSX-D0S2T-^ 
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• FMTM.CNFi:i±Ji-y-;[-'PMM-y--ii- 
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00 . DOCAEGIOlCH.DOCtT) 3 0(75 
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A>AEG/DAAHR(nT) 
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A>AEG/R/DBBB(::f^) 



t';:^ (Z IfSiS L T $) ■& AEGBUG. 
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msx0508(MSX) 



D0Slt:1i^x^lFXh^>5?>f>^ 



MSX-D0S2'i-'bj1f?={^^5^) 
7" + 7. hc7)S^*'^^(ZT'?-5)(t 
f. MSX-D0S2^^oT^j.-l,^A(I 

Z (75 JTYPBi, MSX-DOSl T-JI^ 

fzo TYPEzi V > Kt75l'-tb U H^O 
tlM.,^(fcfc'LWill^ROM)„ 

T'r^^-^^v f-MSXT-tJPOOL 
PDS(7)1217#. 'JTYPE130.ISH*T 
^|i?tlTL^^o JTYPE130.LZH 
t?\t^^X\ .<:SM(nX'>X\,'^h7 ^ 
:^:??rAtlT, 
A>PMEXTJTYPE130.I-ZH •. ' 

X- 5 0(7)7 :i"r ji^;5^i)i'; a ? ti^o 

S-f (i^§TiCOTYPE=iv> KT- 
A>TYPEREADME.1ST 

X\ H:ti\zUh'^X 




A>JTYPE -MJTYPE130.DOC 

®iS(757U-V7 htJx7'(7)^- 
^7';Kteg§^^\ DOCf . MAN(75 

#A^nTL^-5(7)T\ CC7)JTYPE^ 
ts^;ll^^i*§:b(tfc; MSX-D0S2 

JTYPE^®0C7)*<l^^,^A-fc„ 



/fc^ MERON 



ji!T^x^\^7.h^/T0V-;U^(D2 



JTYPE tm-dk'^^f£'-^\.^ (i. 

JTYPE*^';^ ^ ij — > 7 T-r > ? — 

TU/i(75lZj^L. -(;5NTT:'(Jf5]L: 
^LTL^'6, ^i:fi^(75r^(Z2 K-y 

V(n>f^m^'^^ixmh-^r <. lt 

Sfc. JTYPE[c^j:;b^Tfc«i^i: 
U:r^T'd:irfe-5ift|(z;:t-oTL^§. 
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7'::i.+-^^-y h MSXT-tJPOOL 
pds(7)n79(ZNT2.ISHT-^if?n 
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PMEXTCOAoTl^^T^'r^^T-. 
A>PMEXTNT2 • . * 
X-:t->r-„ NT.COM tNT.DOOT) 

i*f^(75|Si0^^<#L ^ T $) 5) J; o 
JTYPE i: NTtiib^&tJ^ffl S &^ 



^X-MSXv^^'v^VIOO-J^ 
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mztz-^tz^du t(r>mm^^ 
^j^LxmizthX'$^Mnz, 

A > TREE 

^t7)4^|l-f StlS7T'fJ^^*^T 
'^T^:^^HSoTREEc7>a^C-d^ 



^•MSX-e^V>100-^ 









63 



ttt^if&^b^z>'j-vz> ho±7(j)m'¥ttm 



G A 



-A, ^'fX-y-A'i-t^ib. 7=' 

7 h C7)-7=^)IS^, 7';^4i_t;5;gf^ 



':^ Tt- ;^ X > ■;; 01 ji/X'(7)5^^KSJj: 
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ximx-^^t\ 




BLADE 

ff#/BLlTZ(msx05432) 

poolpds 983S. BLITZSAf^ffJ^MT- 
?va>-;7-'-A'BLADE-^io y-AtL 

7-f ■y?ft'^j--6"i-ftW»To 
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File Nsse Type Kind Author YY/HM/DD 
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1?83 


F22. ISH T JOKE aiSK01754 92/01/01 


11601 18 




Oflsc: ^,A>S~-e' s 199 2 HAPPY NEW YEAR. . | 


1227 


tISAMODE. iSH T JOKE asx056t4 91/11/07 
Desc; M S X(7>+ 1. 5 i? ^-7 + > l-^S^fiSIC 


3999 28 


1182 


tdv23(l2. ish T JOKE msxOSUB 91/08/24 


122588 44 




Oesc: TODAY Ver. 2. 9 Rbv. 3. 8 MS)(-DOS!l|ffl ^B(tp\(OBl \ 


1173 


bo05. ish T JOKE nsx01517 91/08/12 


27383 44 




Desc: (IT =fc J; A.^fliail# . 5 tbSfiSS (isti & PHsre) | 


117! 


SAND3. ISH T JOKE msx05294 91/08/11 


1997 19 




Desc: moM • /^'/miEJ&i ^r> <i:V99383l=tiElC4- 'J * Lfc. | 


1157 


HITTOOLS. PMA T JOKE bsxD366(1 91/08/01 


15548 41 




Desc: iUil' or iktty^'lvr T ar ^k By ^>■^iS^ 1 


1127 


SAND2. ISH T JOKE insx05294 91/06/25 


36848 64 




Desc: e«ay7*7i;'->3MSIlS^##} W0M.S 


stisgBi^ge 


972 


narufont. ish T JOKE bsx0337() 90/09/17 
Dtsc: HALN0TEffi©FONT(3tlS!:?)-^-r = 


1497 72 


440 


coibow. aril B JOKE iiisx02368 89/02/12 
Dssc: DO NOT ask! 


768 63 


362 


■eh. isli T JOKE 15x00229 88/12/06 
Desc: t' fn' mo (Bug? [y^ l\' -'/ j-Jr' 7^) 


4233 178 


352 


B8F0NT.ARC 8 JOKE iisxa3392 88/11/27 
Desc: iiiabTeriii35 y'^^?'y7*V^ J'ttTransIt) 


1536 113 


338 


likiil. ish T JOKE flSx023E8 88/11/10 
Dase; P C S ©junk, test^ y , fetSo 


7284 148 


337 


nsxnark. ish T JOKE asxa2875 88/11/08 
Desc: iiisx2. ishf* y392A f'-J ?' X tHf Js7t 


1285 88 


,— — -^ — — — 
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1155 OUTRUN. PHA T CAME msx03660 91/07/30 1672 

Oesc: ^t^y-A r^-^ I-7VJ By tJ'oi*^ 

1154 HANGMAN. PMA T GAME msx0366fl 91/07/30 10110 

Desc: ^'-TKRJaiSEffl ^''^>i^7>J By V-r^t^A, 

11S3 HOGURA.PMA T GAME nisxO3660 91/07/30 1830 

Desc: ^ -tsBSimmh<: t>^\i^Y-^ By t>oiS^ 

1118 HAYA3. BAS T GAME insx01374 91/06/02 34S5 

Desc: ^t? b ^-f X©J< -T V^D 7=7 A'C't" 

1088 TtMERBAL. ISH T GAME msx05514 91/04/13 13232 
Oesc; ?9-/i>?'-i ?<?-*'-*/ 7'KA t' i n'-v'aV 

GAME rasx05323 9D/12/22 5898 

MISSION:DESTR0Y 98s use ish S IhE 

GAME r!sx05432 90/10/21 22100 



1023 


98ATTACK. ISH T 




Desc: 98ATTACK. ISH 


983 


blade, ish T 




Desc: t>-6^0. tSH 


939 


i shi. bas T 




Desc: tvL-i^flfy— A 


924 


(lara. ish T 



•^yOl'-hZ't,. browse UT*r*a, 
GAME flsxa52B1 90/08/09 5704 



GAME gisx01754 90/06/18 20080 
GAME insx01754 90/06/18 10898 



Desc: :S:6<^l/-t; 
923 nara2. ish T 

Desc: ^6< ^(/— € I i 
922 ai. ish T GAME m5x01754 90/06/18 14071 

Desc: t)^fc'~«C*B 1>A W MSX-x-tog 
894 maztsu. ish T GAME msx05281 90/06/84 I620Q 

Desc: 7'/ J ?H' AO' ? 5 J^yr 7v' JIIfY 3 0J\' ■) ^*-A 
703 GAME. ISH T GAME Iiisx01754 89/12/05 12659 

Desc: vg— h^-A Cn<UJ:^? 3') LHRD.COM 



J OK E 



(Z>A^- (7)'v a -:? "(T^yp :?*7 A 

fc-„ i^<DmzhfztzUi^A.fziii:: 
^TT^Ll^yP:/7A, aeL^(73 
mn § y P ^-7 A tx ^t^Z (75 V a 
-^ (kindPV> K017#)IC-^^ 

'-■^b?^*^lic7)%Mt*U 1227#<7) 
USAM0DE(iMSX<7)+ ■\' 7 ^ ? — 

(cT?./c*[tc7)V7h. wzmsmp 
(nmt. ■h^;^^Lxu^^^\^^(D 

'-tf-"rjTt7)^MSXT-^aLfcfe 

d(c4'i^v7 vitm^-^tzhm 
hti'totdift'wms.tz. 
mzhmy.]X'Msy2ffymm<Tm 
a^ttif/p^'^A^. ®s*^'zL 

-y-.a-9-Jgn-5 y P y V A. SCREEN 



0(75il®:^«anTl^< yP:?'7A. 

<Dy^>\-. {ifzitz^oir^t K 
^'•^>p-KtTB'C^J:-5o 




MCLS 

ftt/ATSl:Cmsx01842) 

''J:^irPO0L pds 1 #, AT^®?^■f^ 

-iU L.*'LgB^-r'<?mi»liJOKEy 
a?'■5Afc■ofc^fc'ta. 
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G R A P H I C 







MINDY TERM 

^t^/MINDY(msx05544) 

MAG5^jtT-P0OL pdslCgSt ? nX L^ 
5, A^fc■■ii'i;fc•^^(7)MINDYTERM, ^ 
7 7 -f -y ;■ 7=- ? ^ 'P ' J 55 iJ r -5 (7) t ^ 



Ho. File Name 



Typa Kind Author VV/MM/OD BytBS Access 



1290 
1289 
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^t^mLx^^^. 
+^i^ii^j:'^x>'^&^iommiz, m 
^mA.X'^<f:>nfzm^:ti^hD. ut 

f)40;i?icA^o-Cv^.5„ 'pAi^mmiz 
i^AiitDii:m±^^&x.xis>). fi^io 



M'-^iKm^^iftz-izim^iz^tXi^ 

^m±tz-h(t^i%^ti±^^xm^^ 
m^izm^x^^/z'j^ii. '^^Ttz 

■h<n^^M.h t-km.-±fz-hi,z'^m^ L 
tz. ^m±tz-h\tmi:m.< t. ^<n-h- 

-km,±.-tz'h<7wmwmi3-^-^tz<T^^ 

-^fz. 

'>^<np\-m.A.X-^->X. '•-'TTtZ^ 

^AtzMz, :i<7ii^^thfhfzA 

■"BP^^ ? ^m*P ? iSBij/^-tiiS 

i: L-tz^ ^<^\h<7i±.],z\.-^tz^(r>Mii^ 
ii^ l^ J: 9 ^C t^y.-^'z.tz(DfS. 

Pmt 9-?--) Ic^-^/i^^A'TCOA":*:) 

fz-h<n—mi.. ^<7)\^y S. -y K^ttg 
^•^-VTtzibii'J^Lcom^^tt^Kc 

m.^^^htttzt'K ^nf^if(r>m^^ 
n^ztt^'^fz, 

l,i-^^^-M.~co<.^:hm^iz\^*^h'± 

^itLxi^fz. a^'^hm.h^mf 

i3^v^Ti.>^3fe^it^Jtti-LA>^i->, 
^izii^t^XiP^itX^^^ii^X'. M 
^^izmtX'.'fz. 



(7) 

M 
t 



1, 

I 



M 
S 
X 

^' 

5^ 



tut 

T 
< 

I 



^'MSX^^V>WO^ 
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W-^'C\.^fz<r>^A 

•^7-tzib'nm''Z^<nm.*m-^x^^fz. 
X^tz-^—i^'^^'-Z-. ?fe?f>i:Sffl*' 

80 



•5-7. m-ox^'^mph'-z^^f^^fiL- 

tizti:^<Di±mm^^Ki:f}"ofz. 



m.%:>i3^^-^X^^hm^X-h':-fz. 
fthn ? 

<^^^ '*Rfr^ < ^ ^ t -^ M^/gf i) w*^ 

X*^:r^ + ^ + 'y = 

■KUO^^<7>>^m%^.x.fz^. ^'K-h' 
\t\L-t'^fz^n\-^^t.tz. 






\^h. '^<ri^\tfzt-^X\>. ^L^KJ: 
^^L««!i-^'>A--A-, ;H^m-7 

^■> A- A-[iigg 1 15] t J; T CK 

i?^-v ! 




e->^-7 ! 

b fzA.izi%fz < n < mr-i -^-^ossn- 

ii. fifi^l3^'>A— A— iO:fi^(-itf>r) 

:t — ■> ( ift^i??.' -^V — 1^ -c/ur-ng X 
-7t7A-A-ii, iSj«(-WL"tcoB5 

- A -so^ A> A, ^j^^Hj^C^ tb-f „ 
m^ii^^ <':>i,(^-k<^m.tKi:'^tzt\ 

\^*-'i.-A<7m{t-t-<x^mM'. t> 



x-h^-^-oc^iinim^mf \ A 

-mk^ t'X^^-^^k^fx <ho %i 

i'lj'y, i^U -y t^^-^xli-vCA— 
:ic7Jt±^'>A-A-«ftaK^;;t:# <^ 



n<m.^^^^tzxx. nxj}<^7^m 
fi^i^fifc' t^i>A— A— «a;!zsb 

h^'ooor^iz-^^ -^r^A-A- 



V -r ;L-«giJ:.d^i^-?'>A— A— lwtr:i)' 

7\m^cr)iXi^^xx^h'^tz. ^mm-^ 

A— A— i?3^?:^-?-(75^C73^-''ife(CiEvt 

7hi0ll^ '} (i-^r^A— A— OflSlW^ 
i' i — 'y o 

IC. -^'>A-A-cO*#:A-^*;ij'ibli< 
t°x.y, b°->>y„ 

i)-;>-\'<75Xt°TA*M<a!^L;'jSIS 

^< ^-5 7^-^'^A — A— «#^[i, 
J:icSiP!ffiS:ii. i^fJOJil^i-^'^A-A- 

^ii. ^'i'A-A-^^ll^^SlS/fti 
'"rT'r r T 'Vj 



<?)ti-^-r[^, S::fc7)^-i">A-A- 

jtrr. ■^'?A-A-c7)gi^[-ffF^7jAi 

-=P':7A-A-[iB^<7>^^4^^^^t 

^'?A-A-■7)±ifi#^^^iItT^^-e 

i'^<c -ec^ftlllt^C'A— A— 173#^ 
!'><= JfF^COitfi-^'^A— A— CO^iz 

A-A-COM(iH<^oTi-^<o 
■"^T r T T r ! J 

t-t^m<7y^^}imx.Xy.><, 
'^'^■Ttz'h<r)m'-zn.ti^':>x^^h-7'-7 

ri.>7^^„ ^mitz%t.%nm.x^tu 

Tifa^, ^cr)mAmr>X^^tziOtmt 



m 



m 






t 

(7> 



I? 






^•MSX^;5rV>100^ 
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W0 



MSX 




BYm$m:^ 




Msxa)i 




Part4 



T.^^T'^^ACDSef^Q 



(C K^A(73'i>KS15-S-T-L J; 0. 
;^ ^TcDmmt ■> X ju (!§)(;) 

n\zir>x^[fm>^)tt. ±^ 



tn\:x-ttiK m 1 coj: (cjiA^ 

(r>'m^UVm<r)mnX\ K^Acn 

<.mm%^s^^-->->'X'h. ti 

^Sf^bLSr., PSGT'5'A:S'A^ 

- J t u T #U^/c ^ y U > rTcTD J: 
^iLSf. PSGtT^y-fXT'T.^ 






ie^f'fs 



^-rMSX<7)U XA^ig(75;^^^ 



(j;^:'-v t-c;5^m'75j: i xto 

^JU5^yjbb^JLi 



^ 
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■^/))gg 




fij U *J]tL4' ^. ^ v;u5^ yjHx '^JUffi 

u^)jnx^mmx-'7.^^7hL\.^=^if 

n*^S(75x >-<.n -:/T*-r A\ 
^ V ZL u- iS' -(75:^[in^mc L 



^^xt. x^^iti^^tzmftn 
^lzf£i)S.Ltz, ^^tc'JTJWi 

$itHm^^j:(riXttl^BAS\CXI,t 



[^euTEcjiSffl 



l^^£l^X'i-,i:tio 'tZX'V>-f}i' 

>^ji^i:LTf^TX2fe(Jsr. c 
<n-jj'Mt 7- ^. r co^fl^TbS^ t^x 
\-^^<r)X'm^{th^) ttiiK y^~ 

tihti^mxr^ fzt?i^-:KX' 

x^-Z V'^UUt'o^W.Lfzfz 



10 '"mwsl5ml. BAS 

20 "< Music Workshop Vol. 15 > 

30 '< :;(*r r 7i > 

40 •< BY Y. KITAGAMI 1991(0) > 

50 CLEAR 5000 

60 ■/// INIT /// 

70 CALL MUSICd. 0, I, 1, 1,1, 1, 1) 

80 DEFSTR A-H. T 

90 DIM A!i(15) 

100 POKE &HFA3C. 30 

110 POKE &HFA4C. 50 

120 SOUND 6. 15 

130 SOUND 7, 4 

140 FOR 1=4 TO 15 

150 READ A$ 

160 A?(;(I)=VAL(''&H''+A$) 

170 NEXT 

180 DATA 0, E, 0, 

190 DATA 0D04. 1862. 0. 

200 DATA 0E00. 36F6. 0. 

210 CALL VOICE COPY (AJfi, 653) 

220 7// PLAY DATA /// 

230 ■ '— INZ - — 

240 T=''T80 

®2 V14 

©2 V14 

@16V14 

§I6V14 

@16V14 
VI 506 





*** FM VOICE EDITOR DATA •*• 
*** VOICE NAME=Snare DRM *** 



PARM/OP0. OPl 

7(-r fl' i'] 

7J,* 

f' <>< 

|)i;-3 

+-^^'J^ If-* 

t'7'7-h 

t' 4lt-vj> 

DATA 

DATA 

DATA 0D04. 1862. 

DATA eiE00. 36F6. 



MODULE 

13 

7 



4 

■ 6 ■ 

■ 2 ■ 



250 A0="O7L1 

260 B0="O7L1 

270 C0=''O4L1 

280 D0="O4L1 

290 E0="O4L1 

300 F0="O3L16 

310 G0="VI §A!5 

320 H0="L64 

330 "--- MEL --- 

340 Al="E1B2>D4D-4< 

350 A2="AIG2G4>D4< 

360 ■ '--- CORD — 

370 C1=">D-<B2B4>D4< 

380 Dl^" A G2G4 A4 

390 El=" E D2D4 E4 

400 '■-— BASS AND SNARE — - 

410 Fl="@33EER8§63C8@33EER4S63C4e33EER8§ 
63C8@33EER4@63C4 

420 F2="@33EER8e63C8©33EER4e63C4e33EER8e 

63C8@33EER4§63CS33EGA 

430 G1='"BIH16HI6H16H16 S1H1 6H1 6H1 6H1 6 B! 

H16H16H16BIH16 S!H1 6H1 6H1 6C! 1 6 B1H16H16H 

16H16 S!H16H16H18H16 B!H1 6H1 6HI 6B !H1 6 SI 

H16H16H16CI16 

440 G2="B!H16H16H16H16 S1H1 6H1 6H1 6H1 6 BI 

H16H16BIH16H16 S!H1 6H1 6H1 6C! 1 6 B!HI6H16H 

16H16 S!H16H16H16H16 B!H1 6H1 6H1 6BIHI 6 S! 

H16H16H32H32H32C32 

450 ■ '— SNARE — - 

460 HI ="R4V7CV8CV9CV8CV7CV6CV5CV4CR8 

470 H1=H1+H1+H1+H1 

480 PLAY #2, T.T.T.T.T.T.T.T 

490 PLAY #2, A0. 80, C0. D0. E0. F0. G0. H0 

500 PLAY #2. AI. Al, CI, D1. El, F1, Gl, HI 

510 PLAY #2. A2. A2. CI. D1. El, F2, G2. HI 

520 GOTO 490 



CARRIE 



^^-MSXV^VVIOO^ 






'h^L/)-\ ^i.i.^.m>^- 
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c c 3 OS :3 



mommif^ 




fFp?iti BASIC MuSICAc75i:"^ib 



tTU^'^JI'dBP? musicajj/s 



tit*4t LT[ll»^5000R 



*; X 107-24 

— T.U-IT'mitliJtrJb 

^^ MSXy;tfy>Si«SB 



BYiPffliE^ 






:*** I** 

:»*» ■ORG-32 , MSD' •*• 

;*«* •*( 

;«** Presented by. •** 

;»*« TRAGIC - Kaori Ashino •*» 

:*** •** 



FMI ^» 

G. MAH 
FM2 =* 
G, HAH 
FM3 ^* 
G, MA. 
FM4 =* 
G, MBH 
FM5 =» 
G, MBM 
FM6 ^* 

■ SH 
FMR = 
FM7 =« 

. S. 
FM8 ^* 

. BH 
FM9 =* 

.BK 
PSG 1 =* 
A, BDD 
PSG2=» 
A, SDD 
PSG3=» 
A. SYD 
SCCl- 
SCC2^ 
SCC3= 
SCC4= 
SCC5^ 



, *F1. MAA, MAB, MAC, MAD, MAE, MAF. MA 

. *F2, MAA. MA8, MAC, MAD, MAE, MAF. MA 

. *F3. MAA. MAB, MAC, MAD. MAE, MAF, MA 

. *F4, MBA, MBS. MBC, MBD. MBE. MBF, MB 

. *F5, MBA, MBB, MBC, MBD, MBE, MBF, MB 

, *F6, SA , SB , SC , SD , SE . SF , SG 

, *F7, SA , SB ,SC .SO , SE , SF , SG 

, «F8, BA . BB . BC . BD . BE . BF . BG 

. »F9. BA . BB . BC . BD . BE , BF . BG 

, *P1, BDA, BDB. BDA. BDD. BDA. BDB, BO 

. •P2, SOA, SOB. SDA. SDO. SOA. SOB. SD 

. *P3. SYA. SYB, SYA. SYD, SYA. SYB. SY 



; initial. 

*I^tl62 116 

: : : :FM initialize. 

»Fl^e69 v13a7 o5 

•F2=e33 vl2a7 o5 

•F3^e69 vl lq7 o5 

»F-1=859 vl2a7 o5 

•F5=e33 vlla7 o5 

*F6^ei6 v12q7 o7 

•F7=ei6 vl0q7 o7 

*F8-e33 vl3qS o3 

*F9^823 vl3g6 o4 

: : : :PSG initial ize. :::::::: 

»P1=ei 1 ul5 al 1)6 

«P2^ei2 vl1 o3 116 y6,4 

*P3-ei3 v13 o3 164 



232 r8 

zl8 

zi6 

z32 rl6 



music data. 

mmelody. t + 4*t + + + ++ + + + + + + + + + + ++ + + + + + + 
MAA^IS (p0D32plBmlF32F16id8m6) F4pl6nilF 
FGFG A. > (Ci48ni6C. C4. . . )pl6ml<F32 
MBA^ia (p0D32pl6niIF32F16i4ern6) F4p16mlF 
FGFG E. (Ci48m6C. C4. . . ) pi 6rTil<F32> 
MAB^rB-4A AGFA G4E4 D4(CD16)E16 
MBB=rD4D DEDE C4D4 E-4E4 
MAC= (Fi48ni6) F4pl6mlF FGFG A, > [Ci48m6C. 
C4. . . 1 pl6ril<:F32 
MBC= (Fi48fiiS) F4p16rT!lF FGFG E. {Ci48m6C. C 

4, pl6mlE16. )<A32> 

MA0 = r>DC<6- AGFA G4A4 B-4> (C8, , 1 <F32 

MBD^rDDD DEDE E4F4 G-4(G8. .)D32 

MAE = r>D4D DEDE C. lFi48m6F.) F4.p16ml<(A 

16. ) E32 

MBE:rB-4B- B->C<B->C< A. lFi48rr6F. ) F4. p 

16ml 1A16. )E32 

MAF = rB-B-B- >C<B-AG A4B-4 B4> (C8. . ) <F32 

MBF^rGGG AGFE F4G4 A-4 (A8. . ) E32 

MAG=r>D4D GFED C. (Fi48m6F. 1 F4. p16ml(01 

6. ) G32< 

MBG:rB-4B- GAB-G A. > (Ci48tii6C. ! C4. plSml 

<(A16. ] E32 

MAH->(Gi48m6G4, G4G16. )pl6mlD32r8 C4E16 

D(C15] CCDE< 

MA, ^>(Gi48ni6G4, G4GI 6. ) p I 6ni1 D32r8 C4E16 

D(C16) CC< 

MBH- [Gi48m6G4. G4G1 5. ) pi Bml D32r8 E4D4< 

B-4G4> 

;+ + + aiib. +++t + + i- + + +++ + + *-+ + + + +++ + 4- + + + + +4 + 

SA:F2 D2 E2 C2 

SB=02 <B-2 >C2 E2 

SC=F2 A2 E2 G2 

SD^02 F2 E2 G2 

SE^B-2 G2 A2 F2 

SF=G2 E2 F2 C2 

SG^B-2 >D2 <A2 >C2< 

SH=62 >02 C2 E2< 

5, =B2 >02 C2 E4. .< 

;+ + -tbass. + + + + t + + + + + + + + + + + + + + + + + + + + + + 4- + + 

BA:<Fr>F8<Fr>Fe <Fr>F8<:Fr>F8 <Er>E8<Er> 

E8 A4E4 

BB-<B-r>B-8<B-r>B-8 <B-r>B-8<B-r>B-8 >C 

8<Cr>C8<Cr G8<Gr>C (CD) E 

BC=eFr>F8<Fr>F8 <Fr>F8<Fr>F8 <Er>E8<Er> 

E8 A4>C4< 

6D-<B-r>6-8<B-r>B-8 <B-(->E 

8<Cr>C8<Cr G8<Gr>E(EFlG 

8e-<8-r>B-8<B-r>B-8 <B-r>E 

r>A8<Ar>A8 <Ar>A8<Ar>A8 

BF-<Gr>G8<Gr>G8 <Gr>G8<Gr>G8 F8<Fr>G8<G 

r >G#8<G»r>A8<AF> 

BG=<B-r>8-8<B-r>B-8 <B-r>B-8<B-r>B-8 <F 

r>Fe<Fr>F8 <Fr>F8<Fr>Fa 

BH=<Gr>G8<Gr>G8 <Gr>G8<Gr>G8 C8<Cr>D8<D 

r >Dt8<Dt*r>E8<EC> 

:-ntdrums ( bass S snare & synttie ),+*+ 

BDA-GrGrGrGr GrGrGrGr GrGrGrGr GrGrGGGr 

SDA-rrGrrrGr rrGrrrGr rrGrrrGr rrGrrrGr 

SYA-r8 {DC<BAGFE)D> r8 (DC<BAGFE) D> 
r8 (DC<BAGFE)D> r-8 (OC<BAGFE) D> 
r8 (DC<BAGFE)D> r8 (DC<BAGFE) D> 
r8 (DC<BAGFE)D> rB (DC<BAGFE)D> 

BDB=GrGrGrGr GrGrGrGr GrGrGGGr GGGGGGGr 

SDB-rrGrrrGr rrGrrrGr GrrrGrrr GrrrGrGr 

SYB = rB (DC<6AGFE)D> r8 (OC<BAGFE) D> 



3-8<B-r>B-8 >C 



3-8<B-r>B-8 <A 



r8 [DC<BAGFE)D 
(DC<BAGFE)D> r8 
(DC<BAGFE)D> r8 

GFE)D> 

BDD-GrGrGrGr GrGrGrGr 



r8 (OC<BAGFE)D> 
(DC<BAGFE)D> r8 
(DC<BAGFE)D> (DC<BA 

GrGrGGGr GGGGGGGG 



SDD-rrGrrrGr rrGrrrGr GrrrGrrr GrrrGrGG 
SYD = r8 (OC^BAGFEjD* r8 (DC<BAGFE) D> 
r8 (DC<BAGFE)D> r8 [DC<BAGFE) D> 
(DC<BAGFE)D> r8 (OC<BAGFE) 0> r8 
(DC<BAGFE)D> r8 (DC<BAGFE) D> [DC<B) 
A> (DC<8lA> 

<FM VOICE No. 69> 

MD 0-2'l- 1-12- 1- 1- 8- 1 ■0-off-Ofi -off 

OR 1-15-15- 4- I ■ 12- 1 ■0-off-on -off 

<PSG VOICE No. 11> 

32-24- 0-32'On -off-a 

<PSG VOICE No. 12> 

32- 18- 1 1 ■ !4-off-aTi -0 

<PSG VOICE No. I3> 

32- 14- 0' 14-on 'Off '0 



7^IJ*>--^;i^p^ MuSlCAS5f5 



BYiPfflIE# 



*** *** 

*** 'ORG-43 . MSD' **• 

*** **« 

*♦* Presented by. *»* 

*** TRAGIC - Kaori Ashino **• 

*** **• 
tffrt *«(**********<****>«** *********** 



FMI =*I 


*F1, 


MAA, MAB 


MAC. MAD, 


MAE, MAF 


M 


AG, MAH 
















MAA, MAB 


MAC, MAD, 


MAE, MAF 


M 


AG, MAH, 


MAG, 


MAH 








FM2 -*! 


• F2, 


MAA. MAB 


MAC, MAD. 


MAE, MAF 


M 


AG, MAH 
















MAA, MAB 


MAC. MAD. 


MAE, MAF 


M 


AG. MAH, 


MAG, 


MA. 








FM3 -*I 


»F.1, 


MBA. MBB 


MBC. MBD, 


MBE, MBF 


M 


BG. MBH 
















MBA, NSB 


M8C. MBD. 


MBE, MBF 


M 


BG. MBP, 


MBG. 


MBH 








FM4 -»I 


*F4, 


MBA. MBB 


MBC. MBO. 


MBE, MBF 


M 


BG, MBH 
















MBA, MBB 


MBC, MBO, 


MBE, MBF 


M 


BG. MBP, 


MBG, 


MB. 








FM5 ^*I 


*F5, 


CAA, CAB 


CAC. CAD. 


CAE, CAF 


C 


AE. CAH 
















CAA. CAB 


CAC. CAO. 


CAE. CAF 


C 


AE, CAH. 


CAF. 


CAH 








FM6 ^•I 


tF6, 


CAA. CAB 


CAC, CAD, 


CAE. CAF 


C 


AE. CAH 
















CAA. CAS 


CAC, CAD, 


CAE, CAF 


C 


AE, CAH, 


CAE, 


CA. 








FMR ^ 












FM7 =*1 


*F7, 


CBA. CBB 


CBC, C8D, 


CBE. CBF 


C 


BE, C8H 
















CBA. CBB 


CBC, C6D, 


CBE, CBF 


C 


BE. CBH. 


CBE, 


CBH 








FM8 =*I 


*F8. 


BA ,66 


BA , BD , 


BE ,BF 


B 


E . BH 
















BA . BB 


BA , BD , 


BE ,BF 


B 


E , BH . 


BE , 


BH 








FM9 =*I 


*F9, 


BA , BB 


BA , BD , 


BE ,BF 


B 


E , BH 
















BA . BB 


BA , BD , 


BE , BF 


B 


E .BH , 


BE , 


BH 








PSG!^*I 


*P1. 


BOA/4 


, 


BDA, 60F 


B 


DA/ 2 
















BDA/4 




BDA, 80F 


H 


DA/2 , 


BDA/ 2 








PSG2^*I 


*P2. 


SDA, SDB 


SDA, SDD. 


SDA. SDF 


S 


DA, SDD 
















SDA. SDB 


SDA, SDD. 


SOA, SDF 


S 


DA. SDD, 


SDA 


SDD 








PSG3=*1 


*P3 


SYA. SYB 


SYA, SYD, 


SYA, SYF 


s 


YA, SYD 
















SYA. SYB 


SYA, SYD, 


SYA. SYF 


s 


YA, SYD, 


SYA 


SYD 








SCCl- 
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SCC2= 
SCC3= 
SCC4^ 
SCC5= 



*F1 
*F2 
*F3 
«F4 
*FS 
«F6 
*F7 
«F8 
»F9 

*PI 
*P2 
»P3 



- in 1 

t! 12 
:FM 



=633 
:§23 
:PSG 

^ei 1 

=814 
= §15 



t ialize. 

116 
initial ize. : ; : : 

vl3a7 o4 

Vila? 04 z32 

vl2q7 n4 

vl0q7 04 z32 

vl2q7 o5 

vI0q7 o5 z32 

vl la7 o5 

v13q6 o3 

vl2q6 o3 

init iai ize. ; : : 

vl5 o2 116 

vll o3 116 

v13 o3 164 



eBA8B>C8. < 
DSCBDEB. C 

D8. <BB. (G8 G4) GG 
F8. DB. <(68 04) BB 
>D8. (CC4) C 



music data. 

+++melody. +++++++++++++++++++++++++++* 
MAA=i32m9 <A8>CaE8A (B) B8A8EBC (B) B8A8 
E8G8 G8, (F) F4 

M8A= !32m9 C8E8A8>C (D) D8C8<A8E> (D) D8C 
8<Aee8 B8. (A)A4 
MAB = <G8BB>D8G (A) A8G8D8<8> (A) A8G»BDBF8 

F8. (E) E4 
MBB=<B8>D8G8B> (C) C8<B8F8D> (C) C8<B8F8AB 

A8. (Gt)Gtt4 
MAC = <AB>C8E8A(ej B8A8E8C (61 
A4, B>C< 

M6C^C8E8A8>C (D) D8CB<A8E> (D) 
4. DE< 

MA0=B2 G4B4 Al 
MBD=>D2 <B4>D4 Cl< 
MAE=>E4E8F(E) E8E8D8C8 
AB 

MBE = >G4G8A (G) G8G8F8E8 
>CD< 

MAF=B8. AB. (Gfl8} G#8E8>E8<B8 
4C<B8. 

MBF=>D8. C8. <(B8) B8G(t8>Gtt8D8 F8. (Ee4) 
4EDS. < 

MAG=A4. B8 >C8. <B8, AS 64. >C8 DB, C8. <B8 
MBG = >C4. D8 E8. 08. C8 D4. E8 F8. E8. 08< 
MAH= (Al A2) A4. r8 
MBH = >(C1 C2) C4, r8< 



MBP=>C1 >CE<e>D<A>C<G»B FAEG#DFCE< 
MA. :|A1 A2) A4. 
MB. =>(CI C2) C4. < 

: + + + choriJ5. +* + + + <-+ + + + +++ + + + + + + + + + +++ + *+ 
CAA=i24rrl2 A2 G2 F2 G8. (A) A4 
CBA=i24nil2 >C2 <B2 A2 88. > (C) C4< 
CAB=B2 A2 GJt2 A8. (B) B4 
CB8^>D2 C2 <B2 >C8. (D) D4< 
>F2 E8, (D)D4': 

A2 G8. (F) F4< 

Cl< 

El< 

CAE-ArArArAr ArArArAr BrBrBrBr BrBrBcBr 
CBE=>CrCrCrCr CrCrCrCr DrDrDrDr OrDrDrD 



CAC=>C2 <B2 
CBG=>E2 D2 
CAD^B2 >D2 
CBD=>D2 F2 



CrCrCrCr CrCrCrC 
ErErErEr ErErErE 



CAF^G#rG«rGtrG«r G#rG#rG»rG#r >CrCrCrCr 

CrCrCrCr< 
CBF:BrBrBrBr BrBrBrBr sErErErEr ErErErE 
r< 

CAH=>CrCrCrCr CrCrCrCr CrCrCrCr CrCrCrC 
r< 

CA. =>CrCrCrCr CrCrCrCr 
32< 

CBH=>ErErErEr ErErErEr 
r< 

;+ + + bass. + + + + + + + + + + + + * + + + + + + + + ( + + (. + + + + *. 
BA^AAAAAAAG AAAAAAAG FFFFFFFE FFFFFFFE 
BB=GGGGGGGF GGGGGGGF G«G«G#G«G»G#G» (E) 
E<B>EG#6G#E<B> 
BD^ GGGGGGGF GGGGGGGF 
BE^FFFFFFFE FFFFFFFE 
BF=EEEEEEED EEEEEEED 
BH ^AAAAAAAG AAAAAAAG 
;+++drums ( bass 1 s 
BDA^GGGGGGGG GGGGGGGG 



AAAAAAAG AAAAAG8. 

GGGGGGGF GGGGGGGF 

AAAAAAAG AAAAAG8, 

AAAAAAAG AAAAAAAG 

ire i synthe ) . +t+ 

GGGGGGGG GGGGGGGG 

SDA=rrGrrrGr rrGrrrGr rrGrrrCr rrGrrrGr 

SyA=r8 (DC<BAGFE)D> rB (DC<BAGFE) D> 

rB (DC<BAGFE)D> rB (DCsBAGFE) D> 

r8 (DC<BAGFE) D> r8 (OC<BAGFE)D> 

r8 (DC<BAGFE)D> r8 lDC<8AGFEl D> 

:BD8^BDA 

SDB-rrGrrrGr rrGrrrGr rrGrrrGr rrGrrrGG 
SYB=r8 (DC<BAGFElD> r8 ((X:<flAGFE) D> 



rS [DC<BAGFE)D> rS (DC^BAGFE) D> 
r8 (DC<8AGFE)D> rB (DC<BAGFE) 0> 
rB [DC<BAGFE)D> r8 (GFE) (DC<B) A> 
;BDD=BOA 

SOD- rrGrrrGr rrGrrrGr rrGrrrGr rrGrrGGG 
SYD = r8 [DC<BAGFE)D> r8 (DG<BAGFE) D> 
r8 (OC<BAGFE)D> r8 [DC<eAGFE) D> 
r8 (OC<BAGFE)D> r8 (DC<eAGFE] D> 
r8 (DC<BAGFE)D> rl6 (GFE) lDC<B) A> 
< (GFE) D> 

BDF=GGGGGGGG GGGGGGGG GGGGGGGG GGGGGGrG 
SDF=rrGrrrGr rrGrrrGr rrGrrrGr rrGrGGrr 
SYF = r8 (DC<BAGFE1D> rB (DC<BAGFE) D> 
r8 (DC<BAGFE)D> rB (OC<BAGFE) D> 
rB (DC<BAGFE)D> r8 (OC<BAGFE) D> 
r8 [DC<BAGFE)D> (GFE) D (DC<BAGFE)D> 
rl6 



ffeX-^ 



<FM VOICE No. 83> 

MD 16'5-1- 2'12- 1- 1' B-0-0-off-on -off 

CR 1- 4-14- 0- 0-12-0-0-off-on -off 

<PSG VOICE No. 1 l> 

32-24- 0'32-on -off'g 

<PSG VOICE No. 14> 

32' 16- I!- 12-off-on -0 

<PS6 VOICE No. 15> 

32> 12- 0- 12- on ■off-0 



CT— ASa— i'''.V-^gBP^ MuSlCAJ^Iiti 






: I Ice RiOge of Nol t ia ) 

FMl =T.A0. Al. A2.A3, A4, A5,A2. A6. A7. AS 

FM2 =T, B0, Al.Bl. A2. A3, 84. A5. A2, A6. A7 

FM3 =T. C0. AI.Cl. A2. A3,C4. A5. A2. A6.C7 

FM4 =T. A0, Dl. D2. D3. D4, D5, D6/3. D7, D8. 09 

FM5 =T. B0, Dl. D2, D3. 04. D5, D6/3. D7. 08 

FM6 =T. C0, 01, F2. D3, F4. D5. D6/3, D7. FB 

FMH = 

FM7 =^T,H0. Hl/4, H2/4. H3/4. H4/3, H5 

Hl/8. H3/7. H6, H7/8, H8/4, H4/4 
Hl/4. H3/4. H2/4,H4/3, H5. Hl/4 
H3/4, H2/4. Hl/3,H9.HA/3. HB 
FMB =T. 10, Hl/4. H2/4, H3/4. H4/3. H5 

HI /8. H3/7. H6. H7/8. HB/4. H4/4 
Hl/4, H3/4, H2/4. H4/3. H5, Hl/4 
H3/4, H2/4, H 1 /3, H9. HA/3, HB 
FM9 =T. J0, Hl/4, H2/4, H3/4. H4/3. H5 

Hl/8. H3/7, HB, H7/8, H8/4. H4/4 
Hl/4. H3/4. H2/4,H4/3, H5. Hl/4 
H3/4, H2/4, Hl/3. H9. HA/3, HB 
PSG1 = 
PSG2^ 
PSG3=T, K0/15, Ki, K0/7. K2, K0/ 1 4, K3/3, K4 

K5/3. K6. K5/3, K6. K5/3. KB. K5/2, K7 
SCC1 = 
sec 2= 
SCC3^ 
SCC4= 
SCC5=T. m. Hl/4. H2/4. H3/4, H4/3, H5 

Hl/8. H3/7, H6. H7/8. HB/4, K4/4 
Hl/4, H3/4, H2/4,H4/3. H5, Hl/4 
H3/4. H2/4. H 1 /3, N9, HA/3. HB 
T=T140 
A0=V15 
B0=V13Z20R12 
C0=V12Z40R6 
Al^e6705RL15CE-GB->L (0. I60M5)D. IGFC 

(0. 160)0, ILI6E-DE-FDRBDD0GFL (G160)GI 
(0160)01 (CI50)C1L8Q4E-. F. GF. 0E-. <B- 
L>(CI60)CIL16GF(G2I60)G4. 1 <A-B->COE-OC 
<B-> (C4 I 60) C4 I<A-B->CDE-4CDE-F 
(64. I60)G4IFE-F8. (G4G160) G4KF8. 
(G4.. I60)G2R8I e7407C4. <B->C<G2>C4. 
CDE-8. 08. C8D4. CD<B-4. B4. >C804F8E-BDB 
C4. <B->C<G2>C4. CDL8E-, F. GL2FB- 
>(CP3M2<)CP : 
61=R24 
C1=R12 
A2=S7807 (C4. I69M4)C4. 1L16C0E-F 

(D4. 169) 04. IGFE-D (E-4. !69) E-4. I 



<GFE-D(E-2169)E-2I 

■:(A-4. I69)A-4. IA-BB->CL(DI69)D1Q4E-F 
A3=L8F. QBE-. 0E-2L 1 60E-F0E- 
A4=V1 4FDE-Vt 3FDE-V 1 2FRB. VI 5 
B4=V12FDE-V1 IFDE-V10FR8. V13 
C4=VI1FDE-V10FDE-V 9FRB.V12 
A5=GA-B-> 
A6=L16QE-D 

A7=(C4. I69)C2iL804<B, >C. DD.QE-. 
A8=F 

C7=(C4. I69)C4IL804V14<G. A. BB. >0C. D 
01=8 60605 (C. 160M5)C. IL16CE-GB->L0DC<F 
(G. 160) G. IL16A-GA-B-G8G2>DC04 
L<(GI601G1 (GI60)G!L8>C. D. E-D. C. <G 
02= (G4, 1601 G4. I>L 1 6E-D (E-4. I60)E-4I 
F2=(G4. I60G12)G1 

>L16V15C<8->(C4. I60)C4R6V12I 
D3=<FGA-B->C<B-A-G 

(A-4I60)A-4IFGA-B->C4<A-B->CO 
04^ (E-4. I601E-4IDC 

C8. (D4OI60)D41<C8, (D2OI60)D21 
F4^E-12<V15(A4I60)A4IA8. (B4B160)B41 

<A8. (B2B]60)B2R6V12!> 
D5=e74006G4. FGC2G4. G8>C4G4F4. E-FD4. D4. 
E-BF4A-8G8F8<G4. FGC2G4. L8G>C. D. E- 
L2DF (GP3M2) <CP 
06=81 606L 1 6A-8E-A-A->CE-8E-8CE-A-4<6-8F 

B-B->DF8F80FB-4C8E-G> (C2) C8<DC<G1 
D7=A-8E-A-A->CE-8E-8CE-A-4 

<6-8Fe-B->DF8F80FLB-C2<LB 
DB = R2<B. >C. 00, E-. 
P9 = F 

F8=R3V14<G. A, BB. >C. D 
H0=V14©33O2 
i0=V15e33OlO6 
J0=V13ei2Q2O4 
H1=L16>C8CC< 
H2=B-BB-B- 
H3=A-8A-A- 
H4^GBGG 
H5=GGB-B 
H6=A->A-<Q>G< 
H7=>F8FF< 
H8=>G8GG< 
H9^»C<CC8< 

HA=QA-4A->E-A-2<A-A-B-4B->FB-2<B-6- 

>C4C>C<C2<GG>C4C>C<C8FE-CE-C<B-G8 

HB=QA-4A->E-A-2<A-A-B-4B->FB-2<B-B- 

>C8. CE-DC8CE-0E-FE-E-BL8-:G. A. BB. >C. D 
K0=§0V1 lL16CSCCilV12C880Vl ICC 

K 1 ^cBccei V 1 2ce0v i i cce i v i 3C 

K2=ei V 1 2Ce0V 1 1 CCei V l 2CCV l 3CCV 1 4C 

K3=eiV12C8e0VllCC 

K4=eiV12C8V13CC 

K5=e 1 V 1 2C8e0v 1 1 cccce8C4e0cce4v i 2C4 

K6^C4e0Vl 1C88C8. 81 V12C8e0Vl ICCCCSICC 
K7 = 80VnCCCCB4V12C4S0VnCCC8SlV12CCCC 

LBB0V11C. C. Vi2CeiC. C. L16CC 
N0=V1 082201 
N9=^»C<CC8<V 11827 



rex— S' 



<FM VOICE No. 67> 
MD 15'0-1' 0- 8' 2- 
CR 1- 3-I5- 2- 
<FM VOICE No. 74> 
MD 25- 5- 1- 3- 1 I- 3- 
CR I ■ 1 ■ 1 1- 2- I 
<FM VOICE No. 78> 
MD 2-2- 1- 0> 8- 1' 
CR 1- 7- 15- 1- 
<PSG VOICE No. 0> 
32- 16- 0' 14'off-on ■ 
<PSG VOICE No. 1> 
32- 14' 0- 10-off-on ■ 
<PSG VOICE No. 8> 
32- 10- 0- 6-off-on ■ 
<PSG VOICE No. 4> 
32- 10- 0- 10-off-on ■ 
<PSG VOICE No. 8> 
32- 10- 0- 6'off-on ■ 
<SCC VOICE No. 22> 
32-18' 0-15 
1F'3F'5F'7F-5F'3F- IF 
E0-C0-A0-80-A0-C0-E0 
1F-3F- IF- 0'E0-C0'E0 
5F-7F'5F- 0-A0-80-A0 
<SCC VOICE No. 27> 
32- 12- S- 12 
1F-3F-5F-6F-5F-3F- IF 
E0-C0'A0-90'A0-C0-E0 
IF-3F- 1F-F8-E0'C0-E0 
5F-6F-5F' 2F-A0-90-A0 



A- 

I- 6 



3- 

5' 5 



-off-off-off 
■off-off -off 



■off-off-off 
■off-off-off 



•off-off-off 
■off-off-off 
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MvMi .-TXT 



^^to^ ^^Hj 


I^^H 


^^M^^^H^ 


^^^■lii 


-^.i^^~> .^^^^^ 


H^ra^VI 


^^^B^^l 


H^^ *^1FI 


i -- V "^P^^^ 


-^ C 


""'■'' '' 5fS=3<!?^ 


'N ^ J 


HAAt'^ff^^^ 


^Jcnr\^ji 


l^^M 


V ^f '^li" 


W^i^^^^&J^ 


3nK ^ 


V ^W^^^^^^iK-n^^^h^fl 


W^^m 


U^W'A^ 


m ^^'^•. 
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ii^X<iiiX$ib^l ^cl:^T A 

x\.^<.ioKix\ \"yyyo>m% 
X'h. ^^<r)msb->i^X(r>i,t. 



350 A-</K-^=^XK0 






^'o<^iz>sb<T)^^):^X\ itTSHz 

it.^Stifc-o ^'r<Tymtxmlnti 
'i:l,XH:(Tm)^t\ ^^t^- 

fl^LXl^^Ct^^^l.^ vWc^ 

■rVr><.(T)\^-(?t£<.X. ^-7hr? 
-:?at-*§t/-^V.^Xl^5 J: ^-i^ 

/zA^'b^C7)rB^^ilif)Xi.^< Zt 

f)\ ^m^tim^mr>xzii'.zui>o 

|^^m^jtxxu<t>tix\ Tf- 

ti6y-ci^F*g^*^t-X(r>3^^ oX^,^ 
X. 'jZ^'^jrlll^fc^'b^^fcjBi-^X 



fe?.fig^ii/ixx»# (J u»:)X 

t. :^+Xilffti^^J,^^m^.^':>^.^ 
XLS-5X. t'o LXfc#^t7)S5 

-r^^zKf^(rym!T>Mt. Vv^y 
'y>^tz'Dtzi)yf^\'i^r"jyWz 
^fcu. z(Dm-ys^. t>^f£i)z-h 

m#^ * t «)-L(fX'.^ < t)(tfc'o 

"cT^i^/z-jX. uocjii*^'^ 
)ifi#u»v^xi^?)^(tL:'f''d:Lv 

*A<^^^xu^j:uS}i^fe/c < ? 
flllA^b^mXfe. ^n*^*^f5<7>ii 

X-t, (r< g#C7)li(7)+X-[i. ^ 

[J. #^^i:^oXl^^<7)/c!t^ 

^BS1]'^j::S:mf^^tiX? ^-^^o iz 

tt^; /\°Vil>:6^*X'^fcJ3*ifX\ 

■^ 9 v.^9 3 i:/)Ut^S1]^iix-# ^ 



h7-^^:';(co''j:;b<^Xi^^o /f 
*^'b*^a^-t #f-'^X^n;b^S 

gl*^lb)9I#(zf^^X^-^ < c i: W^- 

U. t)C7)tzJ:oXCiiK^^aL^^z 
!J^ ^'oay^-ik^m.y.-tz'-) iL\^^n 

tc^*^ ■tftrB^(zi^:ari.B^ 

S*fi1](-5M;!t^'b0t-fxAXL^*^jU' 

JMzncoXL^^o -tilifcm-rr 
wmxoUji^'-iTX'Kx. tiw^ 

^x^^t<nM.<r)t.t\z^-j vn- 
ipmz':>mi^'^y^7-i^^%\^z. 

nt^xp^. z^^^'^tzh(r><DZ 



»-r5:^ h/*n*E 




Aiaitg-^A.<5<iS 



^fzisb[zmn^m<r><^ -0 ^j:h(r)X\ 
X:km^^fz^fz(r)tzlft\ iztx 
^[zW'^x\.^^—m<7i%^^'^'M.t 

*^ t u ? J: f£mmX-h^Wr>tis 

{7)4: ^r-^^fr'^^^^tiS 

^j:AT*^(i. If^^ls^R'^j: < tz 

t'r>Xl^inztrtllt. ^TL^o 

X-hM^^-^dtz^i^^n 

-n*v^-f^^-■7' + :^ h(7)fE^ 

^-^tmi^Lxmx$fzh<r>tz 
^c75S4iZic;5t)OT(i. o't--o' 

fcC7)*\ Z<D^fj:<DtZo 

X. tn^mjk-t^fzi^<n-nii.t 

LX. Z<7)^^(D^^^Pifz. 




C(7)mt. S/=CRT^It^^(ZO 

4- <-fKB[i4-A^-5 fzKtzt^h)\z 

m^'.z-mi^^^^Liz^K mmz 
u^^m^'-ih^t^X'^^t Uzo 

\-fz^fzinmz, 
(n%mt. zi>^=L--p-i.ifzfz 

<DWYWmtzr>tzA.tzh<7)^ 

izHt'tffytz:^ (cJi^^rStt 
izAt^'PUt^^x, t<r>Uii^}t'- 

(7)fo(7)(r L J: 9 i: LtzKtilit^ 



CT^r?— ^ 7.T— > a >«J^MT'$) 
S ^Dynabook* ^# A fc' LfzT^ 
>--r^(iv C<7)CC0NLSC0x^ 
(1968^COFall Joint Computer 
Conference)^:^^^±^<ti-^ 

memex^NLSti. Ar«1**IK±4- 
■mk^^mX-t^Xn^Zt^fzib 

<r>. %m^±i^^^J^^^^^x 
^Xhnfzh<r>tz-ofz, z(Dm^ 

^X\ X>>rJUM-- h (i, NLS<7)^\ 
"Augment" vXxAc7>5Jf^?rft^j: 

T'fc. 'etiti.m^fz:fD\^t^h 

^^:^\-^%i.x^^^. ^LT^ 
O^S^ *Xanadu''> X x A t "^ 
^T^^So $'^^9^tzmmt)^h 
^mi^tzi::^Xo^£h<nlt. 5Cffi 
&^(3[i^^^x^:^7^A;i<T-^4it 



m.<D^miz umzm-i'~ n ij^x-^ 
^^oizfx^. znu^m$tz^ 
nti\ ih^m^vii'e^tziim.^o 

i^A.f£nmizX'h. n^izr-i? 

9 tnt'^Wi<r>t^t>ti-^hf£ < 4- 
-yXLtoimim^A^. r-<x 
t^t)i}''otz1lHzf£^X L i -oXli. 
^ tlliLtfc t> L ^ I ^ t C7)[i±n4' 

i:^.i<DX'J:in^^')!^i:^(r>i3^ 
X'§^tLXh. ^o^'^20^X'X' 

^^tUtXt^i.fj:\.^i3^h. t 



^•MSX'7;5y'v'>100^ 











gp M i"^ 



tltA^/'e-T^^K.l 






^0. ^sgRT^ij-f^Lfcyp^' 

^Ji, MSX2+J.::i^c7)i||:?:BASIC 



ti^ i: ^'^m<DW^^mm. Uz^!:m 

7r-r^L'?:-lNDEX'(CMitLTfc- 

us)mn—ifn'jy h-^xj^^^ 

L/zt.<^(iP^^. '7~7'DV7h 
ij :^ I' 1 (7)^^X7=-' -f :S'-Mgo 




LISTl B^XxV^- 



10 CLEAR 5i3f)3f:MAXFILES=2 

lljif INPUT "input file name ":IN$ 

12^ INPUT "output file name ":0T$ 

131? OPEN INS FOR INPUT AS #1 

140f OPEN 0T$ FOR OUTPUT AS #2 

15Jif IF E0F{1)<>^ THEN 19^ 

16)? LINEINPUT #1.A$ 

17J3f S=INSTR(A$, "' ") :B$=MID$(A$, S+1) 

m PRINT #2.B$:G0T0 150 

19ff END 



BASID©UV— 50^ 



Ux t- 2(7)7°p:>'vA^^^t1' 

X ^ ^ h (Dmr ^mifi .--x- 

ti-^l : x+x hco5flK"<75||^fc'= 
77'<;u^$rA:^)-r^J: 9 (i^i^ 

ij<x-^<DX\ mnr^-XMyr^ 

ii'^^xtit^. znutx'iz^ 

$tix\.^^:SiMyT'<}iX'h^' 




*7 7'-rJl^T'fel-^L^ 

(D^ $m^tzl^M-^tl^X'X $tzh 
— y}[^tl^7^$tl^(DX-M -y-fe- 

m$tix\.''^yT^}i'<T){H^^^ 
Sfz;(7?J:T(=LTgfU<f?F%^ 

L L ^ 7 7 -r J L' ^ t^-r -S) c t *^T- 
s tzmu^iz {^sc] ^~^nr 

mKt^yT-<Ji'<n^mti^X'$^o 
M(r>i^^. yy-iJi'^^m.^n^ 




AIMlig^A.<5<iS 



LISTS A-r/\-x=^7.S 



WIS KANJI(f:SCSEEN 0:WIDTH 64 

Wld COLOR 15, 1.1:KEV 0FF:HAXF1LES=2 

1020 CLEAE 100:MF=20:D1H T${127).FF$(MF) :RS=1!1 

1030 OPEN "index" AS SI LEN=HS 

1040 FIELD #1.64 AS KYS.12 AS FL$. 1 AS SLS 

1050 SCREEN 0:W[DTH 64;_CLS 

1060 PRINT ■■1:'?+:^ hOBSB" 

1070 PRINT 'Z:-f+^ l-C^i" 

1080 PRINT -SiSJT" 

1090 IHPIIT 'A:f]LXT$^-^n ":S 

1100 IF S<1 OR S>3 THEN 1090 

1110 OB S GOSUB 1130. 2110. 2280 

1120 GOTO 1050 

1130 ^CLS:FP=0 

1140 INPUT "KR-T'S-r+X \-(Dy r '< '^^'£:AtlLXT^\\ MS 

1150 FFS(0)-!$ 

1160 OPEN FF$(FP) FOE INPUT AS #2 

1170 _CLS:LOCATE 0,0rPRINT 'Sc^iii^'P 'iFFKFP) 

1180 l=0;S2$=":S3$="' 

1190 IF S2$<>"" AND K128 THEN S$=S2$:G0TO 1220 

1200 IF E0F(2)=-1 OR 1-128 THEN LX=I-1:G0T0 1300 

1210 LINEINPIIT #2.S$ 

1220 JINSTR(X.SS.CHRS(12)):1F X=0 THEN S2$=":GOT0 1240 

1230 ^KMID(S1I, SS. 1, X-1) ;_K)ilID(S2$. S$. X+l) :S2$=S2$+S3$:S3S=" :SS 

=S1S 

1240 IF LEN(S$)<=62 THEN TS(I)=S$; I=I+1:G0T0 1190 

12S0 A$=LEFTS{SS. 62) : JLEN(A, AS. 2) 

U60 B$=LEFT$<SS, 63) ; JLEN(B, B$, 2) 

1270 IF A=B THEN T${I)=AS:SS=HID$(S5.63) 

1280 IF flOB THEN T$(I)=B$:SS=lillD${SS, 64) 

1290 I=i+1:1F K128 THEN 1240 ELSE LX=121 

1300 CLOSE t2:SCRE£N 7:C0L0R 1S,0 

1310 PT-0 

1320 _CLS:COL0R 15:F0R hPT TO PT+tl 

1330 LOCATE 0. I-PT:PR1NT TS<I) 

1340 IF I>=LX THEN 1360 

1350 NEXT I 

1360 COLOR 11:G0SUB 2290:LOCATE 0,12 

1370 PRINT 'A-V^I'+--P1ft^fet5-^-i^S■a^TTS'.^o ": 

1380 IN$=INKE¥$:!F IN$="" THEN 1380 

1390 IF [NS=CHRS{31) AND PT+12<-LX THEN PT=PT+I2:G0T0 1320 

1400 IF iNS=CHR$(30) AND PT-12>=0 THEN PT=PT-12:G0T0 1320 

1410 IP 1NS=CHR$(13) THEN 1440 

1420 IF INS=CHR$(27) THEN GOSUB 2360:ON SA+1 GOTO 1050.1130.1160 

. 1160. 1320 

1430 GOTO 13S0 

1440 GOSUB 2290;COLOH 11:L0CATE 0.12 

1450 PRINT -A-VJV^SSs^SSl^Jli^^^^^-CTSl.'^ ■; 

1460 X=0:V=0:LINE(0. 0)-{7. 15). 4. BF. XOR 

1470 IN$=INXEY$:IP 1N$="" THEN 1470 

1480 X0=X:¥0=Y 

U90 X=X-(lNS=CHR${28))t(lN$=CHR$(29)) 

1500 ¥=Y-{IN$=CHR$<31))+{IN$=CHH$(30)) 

1510 IF INS=CHR${27) THEN 1320 

1520 IF INS=CHR$(13) THEN 1570 

1530 X=X-(X=-l) ;Y=¥-(Y=-1)+(Y=12) 

1540 IF LEN{TS(PT4-Y))-1<X THEN X=LEN(TS(PT+Y))-1:X=X-{X=-!) 

1S50 IF XOX0 OR YOY0 THEN LINE{X*8. Y*16)-{X*8+?. Y»1B+15). 4.BF. 

XOR;L1NE(X0«. Y0*16)-(X0t8-H. Y0*16tl5). 4, BF. XOR 

1560 GOTO 1410 

1570 IF LEN(TS(PT+Y))=0 THEN 1550 

1580 GOSUB 2290:COLOR 11:L0CATE 0.12 

1590 PRINT •A-y^i'*S:^]ffl*SK&*3-STTSOo "; 

1600XX=X:YY=YiX9=X:Y9^Y:L=l 

1610 IN$=iNKEY$:iF IN$="" THEN 1610 

1620 XB=X9:Y8=Ya:L9=L 

1630 IF !NS=CHR${13) THEN 1780 

1640 IF INS=CHR$<27) THEN GOSUB 2300:GOTO 1440 

1650 IF lNS<X;HRS(2e) THEN 1710 

1660 IF L=32 THEN 1710 

1670 X9=X9+1:L-L*1:IF X9<=LEN{TS{Y9tPT))-l THEN 1700 

1680 IF Y9^1t OR TS(Y9tPT+l)="" THEN X9=X8:L=L9:GOTO 1710 

1690 X9=0:Y9=Y9+1 

1700 LINE{X9*e. Y9*ie)-(X9*e+7, ¥9*16+15). 4. BF. X08 

1710 IF INS<>CHR$(29) THEN 1770 

1720 IF L=l THEN 1T70 

1730 X9=X9-1:L=L-J:IF X9>=0 THEN 1760 

1740 IF Y3=0 OH T${Y9+PT-1)=" THEN X9=X8:G0T0 1770 

1750 ¥9=Y9-l:X9=LEN(T$(Y9tPT))-! 

1760 LINE{X8*8. Y8tl6)-(Xa«8+7. Y8«6+1S). 4. W. X08 



1770 GOTO 1610 

1780 IF n=Y9 THEN K$=H1DI(TS(YY+PT),XX+1.X9-XX+1):00T0 1840 

1790 K$="":FOR I=YY TO Y9 

1800 IF I=YY THEN K$'liiIDS(T$(YY+PT). XX+1):G0T0 1830 

1810 IF 1=Y9 THEN K$=K$+lilID$(T$(Y9+PT), l.X9+l):G0T0 1830 

1820 K$=KS+T$(I) 

1830 NEXT I 

1840 _CLS 

1850 LOCATE 0.0:COLOR IhPRINT K$; 

1860 COLOR 15:PRINT ''^m^Ltto ' 

1870 PRINT "[RETURN] or [ESC] Key" 

1880 IN$=1NKEY$:!F IN$=" THEN 1880 

1890 IF !N$=CHRS(13) THEN 1920 

1900 IF INS=CHRS(27) THEN GOSUB 2300:GOTO 1440 

1810 GOTO 1880 

1320 PRINT "1*5^41' :RC=1 

1930 IF BC=LOF(i)AS+l THEN 1370 

1940 GET fll.RC 

1950 IF LEN{KS)=ASC(SLS) AND KS=LEFT$<KY$. ASC{SL$)) THEN 2000 

1960 RC=RC+1:G0T0 1930 

1970 PRINT "4—7- KAS1.'>A>5*■&^D " 

1980 IN$=iNKEY$; IF IN$="" THEN 1980 

1990 GOSUB 2300:GOTO 1440 

2000 PRINT "IS^7T-f/l'"; 

2010 COLOR lliPRINT FLS; 

Z020 COLOR 15:PRINT "S-^olitS Lfco " 

2030 PRINT -RliEL*-rK [RETURN] or [ESC] kEY" 

2040 IN$=INKEYS:IF INS=" THEN 2040 

2050 IF IN$=CHR$(27) THEN GOSUB 2300:GOTO 1440 

2060 IF INS<HRS(13) THEN 2080 

2070 GOTO 2040 

2080 IF FPOilF THEN 2100 

2090 PRINT "y+x KO+:^ h3&igEt"?*-f':C0T0 1980 

2100 FP=FP+1:FFS(FP)=FL$:G0T0 1160 

2110 _CLS 

2120 INPUT ■§!*i-r5?+^ f-ffl7r-f ^l-g*A:^LTT*l.Vo ':F$ 

2130 INPUT -^T-f 'V04— 7-K*A:'jLTT*'.V "iKJ 

2140 FS=LEFT$(F$. 12) :KS=LEFTS{KS. 32) 

21S0 PRINT "g^LS-to ■ 

2160 PRINT "7T-f '^*-i.:":FS 

2170 PRINT "+-7- K l":KS 

2180 INPUT "J;6Lt.>T-rK (V or N)";0S 

2190 !F Q$="N" OR Q$="n' OH ()$='N" OR QS="n" THEN RETURN 

2200 IF 0$="Y" OR W='y" OR Q$="Y" OR QS=*y" THEN 2220 

2210 GOTO 2180 

2220 HC=L0F(1)/BS+1:LS=CHR$<LEN<K$)) 

2230 LSET FL$=F$:LSET KYJ=KS:LSET SLS=LS 

2240 PUT #1. BC 

2250 PRINT -^MLtltio " 

2260 IN$=INKEY$:IF IN$="' THEN 2260 

2270 RETURN 

2280 CLOSB:END 

2290 L1NE(0.!92)-(S11.211).1.BF:HETURN 

2300 _CLS: COLOR 15 

2310 FOE 1=0 TO H:LOCATE0. 1 

2320 IF PTtDLX THEN 2350 

2330 PRINT T$(PT+I) 

2340 NEXT 

2350 RETURN 

2360 ^aS:COLOH 1S:L0CATE 0.3 

2370 PRINT ■ ^-1 y ;>=■:•. -iZ.^i' 

2380 PRINT " A»7 7 -f Jl-ffllSI" 

2380 PRINT • S*7 7 -f JUCKS" 

2400 PRINT " atOH^tcSS" 

2410 PRINT " EXIT" 

2420 SA=0;S0=0 

2430 LINE(128.48)-(319.63).4.BF.X08 

2440 IF S0=SA THEN 2470 

2450 LINB(128. SAtl6+48)-(319. SA*16+63). 4. BF, XOR 

2460 LINE(128. S0*16+48)-(319, 50*16+63). 4. BF, XOR 

2470 IN$=INEEY$:IF IN$="" THEN 2470 

2480 S0=SA:SA=SA+(1NS=CHS$(30))-(INS=CRF$(31)) 

2490 SA-SA-(SA=-1)+(SA=5) 

2500 IF !N$=CHRS(13) THEN 2520 

2510 GOTO 2440 

2520 IF {SA=2 AND FP=0) OR {SA=3 AND FP=0) THEN SA=4 

2530 IF SA=2 THEN FP-0 

2540 IF SA=3 THEN FP=FP-1 

2550 RETURN 



^♦MSXvj^V^lOO-^ 






if- 














i ui^L < mmvBf£i}^r>tz(Dt. 



# 
+ /- 

** 

* * ¥ 



1 PRINT USING0fi:5:?5y 

l& 5:^?iJ<D^«iJ*>6. &*%6&*'-I?(7)g3 i^&om+2X 




PRINT USING^i5±0a 

• Sic0tT3lS®®m^ilt-5fc*©:S:^*<a^3ns<, 



'UA 




l.^?)<, ^ < (ZAIGKi. BASICT- 
MIDI^=l> hP-yL-LTI.I'b'r:: 

mtzi3^htd^ 

tim^Sa^'-pR\mX"izm^LX 
^^ZtlZLtz, PRINT^tmtrj 

BAsicx—^mmzi^-^ tz 7°p y 

^A(J, PRINHCi: G0T05:fc'lt<7) 
PRINT5:fc, PRINT USING^ft 

r> x-x^ii^i^m^^mm L X^^v 



QPRINTJitB? 

PRINT3tc7)l5iHJ*<'JZ>li4'A^^*ff^ 
X'^}Hi^^t>^j:\.\ tziit\ tU 

^^-rPR!NT3ti:(if0L^T t<7) 
•PRINT ^t^T'^IJSfctJlSC^^S 

mpHmj nmtfzumm^^ 
m.mtfzitmm^^(D\^-^^m7r- 




<esc>A 
<esc>B 
<esc>C 

<esc>D 

<esc>II 

<esc>Ynin 

<esc>J 

<esc>E 

<esc>K 

<esc>l 

<esc>J 

<esc>L 

<esc>M 

<esc>x4 

<esc>x5 

<esc>y4 

<esc>y5 



- :h-'J}i^^±{z^~m 

;■ ii-y }i"^:^(z^tl] ■'■- 
' ti-y )i^-;^iz^t}! 

locate aSc("iB")-32,asc("n")-32i: 

SS^ur- - 

:^- V jnas4\et7©^*? y ST? 
s - V iumst'-^nco^h U S T. 
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j;L\ 0iHPRINT 'ABC'O) 
LTUT-h^St^t. ■*10 PRINT" 

QPRINT USINGili? 

PRINT USINGtti. »it-ftSc7> 
PRINTX WT^Ltz\.^^W£i^^. 

^Xfyfzh<r>. tLxm^z^f^ 

;^ h K 'tLxm^ ^^tt-^x^ 
X tnt'ti(Dm^(ryM.^^i¥m L 
XUo ^nLXtit£^t^t>i)-'h 

JXIl7'OTS^'^^ X— :?~^— :^ 
cot-'-^J-co— Mg^^-i:', i^^v.^ 

pRiNirrfii/fttT-t.. 'x;^-r-7° 



Ustl PRINT USINNG0t>:^il/ 

1^ 'PRINT using; r/r* 

2^ DBFDBL A 

3|f A=123456789#:B=98?65. 4321#:A$="ABCDEFGH" 

4^ PRINT "a=";A 

5^ PRINT ''b=";B -J> 

60 PRINT "a$=";A$ 

10 PRINT USING "100:r;AS 



run- , 

a= 123456789 

b= 98765.4321 

a$=ABCDBPGH 



10 PRINT USING 
120 PRINT USING 
130 PRINT USING 
140 PRINT USING 
150 PRINT USING 
160 PRINT USING 
170 PRINT USING 
180 PRINT USING 
190 PRINT USING 
200 PRINT USING 
210 PRINT USING 
220 PRINT USING "220 
230 PRINT USING "230 
240 PRINT USING 
250 PRINT USING 
260 PRINT USING 
270 PRINT USING 
280 PRINT USING 
290 PRINT USING 
300 PRINT USING 
m$ PRINT USING 



110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 



240 
250 
260 
270 
280 
290 
300 
310 



!!";A$ 



&— ";A$ 



-%~'-M 



r-.k 
##########" :A 

######. ###";B 

+##########" ;A 
##########+" ;-A 
♦♦##########" ;A 

¥V#########r:A 
**V#####lt###";A 
#,######»#r:A 
######. ##,###r;B 

######## ;A 

#####IS###,!#########r :A :A$. 



110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 



ABCD- 
AB 

— ABCD — 
— ABCDEFGH 
A6CDBFGH 
—ABCDEFGH— 
S6123456789 
123456789 
98765. 432 
H23456789 
123456789- 
***123456789 
Y123456789 
***¥123456789 
123,456,789 
98765.43. 
1234568E+02 
123456T89A 
123456789 




98755 



B Type mismuch in 310 



(CHR$ (&H1B) = CHR$(27))?ri^ 
PRINTiJttr^b-y-TL JJ^-O. t 






-10 A=0 
20 LOCATE 0,0 
:30 PRINT CHR$<27) f L" :A 

40 AM-H ^/: 
50 GOTO 20 




tri-^x-Wonx\.^^j^7^^~zf 

i^—^>7,t. MSXc^iPRINT^tt- 
i^l h<T>t[f^Xr3t'-M:l<nX%± 

(7^—%. ^« 2 izmU LXtiii^ 

it^^tz^^. a^ti^ 

CLS 

X-'i=Tn^ tfz. PRINTtSCT'^Ufcl^ 

^m-^x 

PRINT CHR$ (12) 

PRINT CHR$(27) ; *j" 

itzit. 

PRINT CHR$(&H1B) ; *E" 



XiiMo 

t\ mxii'):^\^2(DXiizbx 

^my(.^a-)u'$-it^-i:i3^X'$ 

>m:fa^^A^f^^xmmLtz 
ziit^Si^A.tz^-rt\ ^->>mu 
A.M^t^^£ <xhX'$ fc^/t*feo 

hf£t^->tz, m^ff^&X'Ltz, t> 
^t>^XtlLXi^^tzA. Z-SbA. 

iA. Z(D:LX'y—y°->—y> 
XlzmLXlt. "PRINTSrfc'ttT- 

LocATET'#^\ ^^mm. # 

A, :b-yM-imiJ'h<Dm^Ui:: 

mxhti^" ^^^^tzj^ij^m\\^£ 



:^-MSXv^V>100-t 
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- 10 • myf~m' 

|2^aEAH 10000 

1^0 DBFINT A-Z ; : 

i0 SCREEN l,J3f:(X)L0R 15.0. j3r.:CLS 

5J3f KEY OFF:WIDTH 32 

60. DIMA$(10j2O 

70 BT=9999:A=RND(-T!ME) 

100 ' Va^t^H 

:il0aS:PRINrf37!' 7?fi.." 

:i20A$="":FOR 1=0 TO 7:A$=A$+CH8$<VALr&h"+MID$("3 

t838107C102844M*2+l,2))):NEXT ! 

1130 SPRITE$(0)=A$ 

U0 A$(0)=STRING$(31,"*") 
ii50 A$(99)=STRING$(31,"*") 
ti60 FOR 1=1 TO 98 : 

^170 AS(I)="#"+SPACE$(29)+"*" 
'180 NEXT I 

190 FOR 1=1 TO 400:MID$(A$(RN!)(1)*98+1).RND(1)«9+ 

2)='*": NEXT I 

200 FOE !=0 TO 8 

210 X=RND(1)*29+2:Y=RND(1)*98+1 
P20 IF MID$(A$CY),X,1)<>"' " GOTO 210 
ll30MID$(A$(Y).X)=CflR$(49+I) 
1240 NEXT I „ 

p50 FOR 1=0 TO 22 
|260 LOCATE 0.I-I-1:PRINTA$(!); 
^270 NEXT I ' • ' , 

280 LOCATE 0.0:PRINT USING' 

#r:BT 

•290 X=1:Y-2:N=0:Z=0:TIME=0:T=0 

300 • Mym-r 

^10 XX-0:YY=0:A-STICK(0) 

J20 IF STRiG(0) GOTO 100 

J30 IF (A AND 1)=0GOTO 700 

J40 IF A=l THEN YY=-1:G0T0 380 

|i50 IF A-5 THEN YY=1:G0T0 380 

^60 IF A=7 THEN XX=-1:GOTO 380 

J70 IF A=3 THEN XX=1 



TIME; BEST ## 



— y'>-<r>^^igoT, BASIC 
SPRINT USING^^ LIR^I^lZ-fi 

^Mi^hmmz'^tx-km^-otz 



X\ S^Ct^<T-#4-l^r<, MSX 
Z/Z-\-mzi-tt\ turbo R(75E^^ 
- V'X'>PriXhimit)^^£t^^£ii-'0 

xm^M^h'pi)t£htOo y-A 



380 V=VPEEK(6144+(Y+YY)t32+X+XX) _____ 

390 IF V=49+N THEN BEBP:MID${A$(Z+Y+YY-1),X+XX+1)= 

" ":LOCATE X+XX, Y-!-YY:PRINT" ''::N=N+1:G0T0 500 

400 IF V032 GOTO 700 

500 IF XX THEN X=X+XX:GOTO 700 

510 IF YY=1 GOTO 600 

520' 51 W^ 

530 IF Z=0 08 Y>12 THEN Y=Y-1:G0T0 700 

540 Z=Z-1 

550 LOCATE 0. 1:PR!NTCHR$(27):"L": 

560 PRINTA$(Z): 

570 GOTO 700 

600' ■/? \vr 

610 IF Z*77 OR Y<12 THEN Y=¥+1:G0T0 700 

620 Z=Z+l 

630 LOCATE 0, l:PSINTCHR$(27);-r ; 

640 LOCATE 0.23:P8INTA$(Z+22); 

700 PUT SPRITE 0, (X#8.Y*8-1). 11.0 

710 n=TIHE/60 

720 IF Ton THEN LOCATE 8,0:PRINT USING"###r:n: 

:T=TT 

730 IF NO GOTO 300 

800* f-i-Zi^'M 

810 BEEP 

820 LOCATE 8, 12:P8INTSTRING$(16/*"); 

830 FOR i=13 TO 18 

840 LOCATE 8, 1 :PRiNT"*";SPACE$(14):"*": 

850 NEXT I 

860 PUT SPRITE 0,(0,200) 

870 LOCATE 8. I9;PRINTSTRING$(16."r): 

880 LOCATE 11. 14: PR I NT" COMPLETED!" 

890 LOCATE 12.i6:PRINT USING'TIME: ####":n 

900 IF BT>n THEN BT=n 

910 LOCATE 12,17:PRINT USING"BEST: l##r :BT 

920 IF INKEYSO"" (X)TO 920 

930 AS=!NPUT$(1) 

940 GOTO 100 
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HBASL 



m 




(Dm^^ 1 m^'D^z>-c 4 mow 
or 1 - 9 ^■e®^5y^-:j/5\UT 

55(1)^75^+ 1 <75'0^2B^ 3 -3) 
i:l\oCi:r. 6^5'^rP'K5 
cJ;oQ7'a9'^z^^{'P^tct;;5'o 

[1.4,9,872356] 
[1,36.529,784] 
[4,25,81.7396] 
[9,25.361.784] 
[9.81,324,576] 

mmmmiAmo:)z>-^-. iesi3:12®o 
r. m^^itmmm:^mxn\-:r^. 



;tf-SPl^5>£^^;e«o10BcZ)DIM 
H(117)t;a.20fT©FORI-0 TO 
993i:l^■^Smi?^Sc^:■^t-5^ 

3:9-0ffi!*Bttl-t, 4:ecDH>Ktti:. 
5:a©59Bt»|-/f^^o ^^-. 3^ 

^IZ4i3-®&^Ktt^s ^SCI:^ 

\z^^n^. mnn<U'D<^n 
3 ■z)(DW^W[(jmi3nmzm-Bm 




^^^tz'^mr)K)\zn^^.t.\z 

W^\zrAi>T^Z'o139 
zn\^WQ%x^t.r^uuni' 

SIS^o l- Ofeffl J^oCBASI C"C 

'f^:xo\z\i-yiyX^-Dxno 
So yn7^u^mi\i^nK\z\^s 

SfSCDia 2 ^20Bo ^^IS 4 3 8 



B^^ffiMSXy^5;> 5 ^S-Co 
fei^£QUrSL-l^A(3:^ ttfifr ■ K 

s^SL\;s^Mffi©Hcs^m^© 
CD#^a5T3r(qiii[ur<nn(^ig 



^-C5t 



n07-?4 



Iff CLEAR100:DEFINT A-Z:DEFSNG H:DIM H(117),0{6):D 

EFFNL(X)=LEN(STR$(H(X)))-1:DEFFNR$(Z!)=M1D$(STR$(Z 

!).2):PT=JJ 

20 J=0:FOR 1=0 TO 993:H=I^2:H$=FNR$(H) : IF INSTR(H$ 

."J?") THEN 50 

30 FOR K=l TO LEN(H$)-1:IF INSTR(K+1. H$.MID$(H$.K, 

D) THEN K=10:NEXT K:GOTO 50 ELSE NEXT K 

40 H(J)=H:J=J+1 

50 NEXT I:P=J 

60 O(0)=1:O(6)=P:J=1:FORI=1TOP-1 

70 IFFNLd-DOFNLd) THEN 0(J) = I:J=J+1 

80 NEXT I 

90 FOR 10=0 TO 0(2)-l:F0R 11=10+1 TO 0(2)-l:A$=FNR 

$(H(I0))+FNR$(H(11)):B$=A$:GOSUB 230: IF S THEN 190 

100 FOR 12=11+1 TO 0(3)-l:A$=B$+FNR$(H(I2)):GOSUB 

230: IF S THEN 180 

110 Q=9-(FNL(I0)+FNL(I1)+FNL(I2)) 

120 IF FNL(I2+1)>Q THEN 180 

130 Q=Q-1:IF 0(Q)<I2+1 THEN A=I2+1 ELSE A=0(Q) 

140 C$=A$:F0R I3=A TO 0(&+l)-l 

150 A$=CS+FNR$(H{I3)):G0SUB 230: IF S THEN 170 

160 PT=PT+1:PRINT FNR$(H(I0))" "FNR$(H(I1))" "FNRS 

(H(I2))" "FNR$(H(I3)) 

170 NEXT 13 

180 NEXT 12 

190 NEXT II 

200 NEXT 10 

210 PRINT PT"H'r:BEEP:END 

220 ' 

230 FOR 1=2 TO LEN(A$):IF INSTR(I.A$.MID$(A$, 1-1. 1 

)) THEN I=9:NEXT I:S=1:RETURN 

240 NEXT I:S=0:RETURN 



:^-MSXv?5y'V>100^ 



t T 100-f-' 
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MSX turbo R 

l:fr5o#[9i(i.X^U-V*:/A-<^VRAM^fiJS-rs 




h *DC0PY1.C*T-l's&^fcBD0S=l~ 
JK?) 'ALLOC* t ^DPARAM^CT^I^ffl 

ij T-S^iO 'DC0PY2 . C* IZ-S-t ts 




Ittfz^fz, L;!)^L. K3iBI0S$- 
<So i: |t {ZC J;^ ^ V :? ^r-^— ;^ 3 
(CO0OHfeLbc75#ilfe) US < 'jm^'^ 
h^t\.^0%tL'Kti^h':>iz. ft) 
■§■(;> *DC0PY1 .CcTJ.t 9 (z;*^#'i- 

BI0S^-|i&;t4-L^(;3T\ iJ^ h 1 t 
ij^ I- 2(?5J;-9U. SBJfJ'acBuf 
^ @ tdlSlSl*^ -b S^&t] (static) ^|g[ 

^RAM^^5 

^ :c U r ^lftfFT-5 *DC0PY2 . C 

l^(7)T\ U X h ±W-^mWLLfz. 
#define DEBUG 1 




I 

T 



.ALLOC Function IBH 

C = 1BH 

E = K y -f y # 4- (0 : fl u V I- , I ; 

BC = -e ? * -K 

DE = ^ ? 7 ^ ^ -a 

HL=;R(±-j|)?7:^:i'-a 

DC - DPB ©ffiHl! 

rY = FAT^> V 7T-ra#Jft 



■'-y /-» - 



W}k 



A, ...) 



fill SI 



MSX-DOSl ifilM*:!). FAT ^'' :■ 7 7- - It tt FAT « 

OBDOS ^-1-4(85 i FAT--'y7r-;i:]MSyjti:ft5. 
(fn^a) MSX-D0S2T:-ti, 3?l!gOFAT'--v7r-W: 
^RAMtciO, COBDOS a-'i-K: io-C— r.Vft'jK 



•^5. 



_DPARM Function 31H 

--7;<-?- C = 31H 

DE = 32"M h7>^-'-^ 77-®#^L= K^'fT'S^- 

(0 : A i^:' h, 1 : A, ...) 
fcHHi A = i7-#^-(0%ibtffiEJA) 

DE*;ir;-fSilliK:32'-''r hWT'^x?-;^/-?-^: 



;^- 7 -t ■/ 1- 



OH 



IH 



3H 



4H 



6H 



7H 



9H 



BH 



CH 



DH 



FH 



IIH 



13H 



14K 



18H 



fi^ 



^\'^ 



^JSHK^'f ^#i^(l : A, ...) 



-fe?;* -S (IB.4f4 512 CO*) 



j^yx^-ife;-;: 0cr,-fe:7:?-3 



T'$^-fe ? ? -? 



3',Ti'tt 1) 



FATia(iffi1r^f±2) 



^1-- \-T 4 L-? \- I) -<o^y I- y -^ 



-t:??-ra^| 



>7-'-f7T^X:?y7'^- 



FATl 



>;fe *)i?)-b:? ^ -I 



^t-- l•■r^ U-? h !) -(Dl^Sp-t::''^-^-^ 



X-^0^*&-tj?^-#^ 



^A * 7 X ^ -#^^- 



y—T A —7- A 7-7 y y V* 



jHy^-AID (-1 ^fjfi'ID^L) 



xj? 7 7 rvj> -t:-4itix(±\ 7^^ ;^ ^pf"! 



7^g ^fe;?^ UNDEL ^fl^^ 7 7 -f ^■-/^^^a^-fS, 



lJ::^hl DGOPYl.Ct^BU^l 



VOID dcRdBlockdiiStartSector, uiSectors, uiSectorSize) 
uint uiStartSector, uiSectors, uiSeclorSize; 



char 
uint 



acBiif[BLOCK_BUF_SlZEl: 
uiSectorToSead; 



^ static char 



acBuf[BLOCK_BUF_SlZE]; 



VOID dcfidBiock (uiStartSector, uiSectors, uiSectorSize) 
uint UiStartSector, uiSectors, uiSeclorSize; 

uint uiSectorToHead; 



'j;^S2 DCOPYl .GtMSB^E 



VOID dcfrBlockdiiStartSector. uiSectors, uiSectorSize) 
uint UiStartSector, uiSectors, uiSectorSize; 



char 
uint 



acBiif[BLOCK.BUF_SIZE]: 
uiSectorToWrite; 



VOID dcfrBlock (uiStartSector. uiSectors. uiSectorSize) 
uint UiStartSector. uiSectors. uiSectorSize: 

\ 

uint uiSectorToWrite; 
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H7;(h/aj||«SE 



T^n^Jb . 7VJV7. 



% 1 n^t 2 n^'.~^%W.Uz(DX\ 



MSX-DOS2<7)iii®^- Y'^m^ 

LD A,0 

LD DE.nOOH 



CALL OFFCAH 
KANJIS^— K ^£ "b (f A U v :x 



^^Tv.^4-i.^*\ ®S*-Kfc'(t ^^^ =m^\''^^y<-^'^m-ftil£ 



LD A.OFFH 
LD DE,1100H 
CALL OFFCAH 

(7)^ (C. A U'xX:?— {ZOFFH^ 



A u v;^5'-;:)*0FFH{zJ||^ K7 

f£^o mm^E- h- ^wmx^tz 

sbizii, 1i®^-K(cj;dL;taU' 



v^PtZLfc. ya^vAf$imi AnT?jS?IBIOS?ri^t/t±i-ra ^£?) ^J'-HnOlH^rAtlT. J£?iBIOS 



'J7,h3 DCOPYE.C 



y:^ 1-3 DOPVa.C 
A 



t 
t 

t 

* 

t 

*/ 

(define DEBUG 1 
#include "dcopy. h 
Jfpragma nonrec 



dcopy 2. c 

(G) 1991 N. Ishikana 

Free to copy and use without narannty 

on 2?. Nov. 1991 by nao-i8ascii.co.jp 

OR 23. Dec. 1991 by nao-iSascii. co.jp supporting tapped RAM, VRAM 



tifdef 

#define 

tdefine 

(define 

tdefine 

tdefine 

tdefine 

Seise 

tdefine 

tdefine 

tdefine 

tdefine 

tdefine 

tdefine 

tend i f 

tdefine 



DEBUG 

DPUTCHAR(c) 

DONEO 

DPRINTFKpl) 

DPfilNTF2(pl.p2) 

DPHINTn(pl.p2,p3) 

DPRINTF4(pl.p2.p3.p4) 

/» DEBUG ♦/ 

DPUTCHARCc) 

DONEO 

DPRINTFKpl) 

DPRlNTF2(pl.p2) 

DPRlNTF3(pl.pa.p3) 

DPRINTF4(pl.pZ.p3.p4) 

/» DEBUG */ 

STATICF static 



Iputchar(c); fflush(stdout): 

printfC tione-¥n") 

priRtf(pl) 

prinlf(pl,p2) 

printf(pl,p2.p3) 

printf(pl.p2.p3.p4) 



typedef struct ( 



char 
char 
char 
char 
char 
char 



typedef struct 
char 
char 
char 
int 
} 

extern STATUS 



Bap„slot; 
!»ap_total : 
iiiap_free; 
map. system; 
ii!ap_user; 
Kap.reserved[3] ; 
»iapv_t ; 



piiap_slot ; 

piiap_ total: 

piiap_free: 

{♦Hap_juBp)0: /* address of jutip table 

iaps_t; 

_aeek{); 



*/ 



fldefine HAX_MAP_SLOT 9 
(Mef ine HAX_HAP_SEG 64 

tdefine HAP SEGKB 16 



BIOS, systes work area, extended BIOS 
Mfflc 



/* 
* 

*/ 

tdefine CALSLT 
tdefine BiOS.LDIRMV 
tdefine B10S_LDIRVM 
tdefine W3DE 
fldefine LINLBN 
Sdefine EXPTBL 
Sdefifie EXTBIOS 
tdefine ALL_SEG 
tdefine FRE_SEG 
tdefine RD_SEG 
tdefine WR SEG 



0)!fafc 
0xfm 
0>;fccl 
(fxffca 



/* 

* 

»/ 

tdefine FUC_S 
tdefine FLAGJ 
tdefine FLAG_H 
Sdefine FLAG_P 
tdefine FLAG_N 
tdefine FUG_C 



flags in flags register 



Kxl0 
3x04 
0xir2 
0x31 



/* 

* 

*/ 
Static FD 

static char 
static TINY 
static int 
static uint 
static XBEG 
static char 



variables 



fdWork: 

aeWorkNaiet] = •■H:DCOPY.S$$': 

tMapSegs, atMapSeg[G4]; 

(*juiip_table)(); /* address of juiip table 

]uip_rd_seg. iufflp.wr.sei, uilV; 

regs; 

cModeSav; 



work area aap 



RAM disk 



napped RAM I 



-+ uiDiskStart = 3 
I 
-+ uiDiskEnd = uiHapStart 



VRAM 



-+ uiMapEnd = uiVRAliStart 



-+ uiVRAMEnd 



/* 
* 
t 

t 

* 

t 

t 

* 

* 

t 

*/ 

static uint uiDiskEnd. uiMapEnd, uiVRAMEnd, uiWorkOff, uiVRAHOff; 
Sdefine uiDiskStart 
Sdefine uiHapStart uiDiskEnd 
Sdefine uiVRAMStart uiMapEnd 

/* 

t get Kanji node 

*/ 
tdefine getKModeO calla{EXTBIOS. S. S. S. 0x1130) 



/* 

« nake sure C103H <= SP 

*/ 

STATICF recursive VOID cbeck_stack{) 

i ^ 

auto char acDuniy[l]: 

Sifdef DEBUC_DONE 

printfCcheck^stackO : S34X¥n'', (unsigned)aci)uiiBy): 
Sendif /* DEBUG «/ 

if ((unsignedJacDuieny < 0xct33) I 

fputsCStack ov«rflo«.¥n", atderr): 
exitCl): 



/* 
♦ initialize laory sapper 

*/ 

sapv_t *Bapinit(psiaps) 
iiiaps_t tpmaps ; 
1 

check_stack{); 

Ben se t (S regs, 0. sizeof{regs)); 

regs. de = 



;^-MSXv>5rV>100-^ 



100-?-it^^*t>-fe T Z'^'K'-ii-, CJit J.-+^■-«^5■^U,MSX£■^i.-tL'/i/:^'' 



97 



iit®*<ANKt- K (^^^- K) 

FSBOHStfeuiett^nTi^-siiiiiQ 



mm. 'check stack" U. ^ ? -y 
^--I^-r >:S'-*<C100HJ: (J fc/J^? 



/» 

'* 
*/ 

uint 
,1 




caIiKx{EXTB10S. firegs): 

if ({regs-ar & BxtfSSf) == ?) ( 

return NULL; 
I 

P>iaps->p(«ap_slot = regs. be » 8; 
piaps->piiap_total = regs. af » 8; 
PBaps->paap_free = regs. be Ei fSxHlSU: 
PBaps->Biap_jiinp = (int (♦)()) regs. hi; 
return (inapv_t*)call(EXTB10S. 9. g. jl, Mm): 



nake tenporary file and return size by K bytes 

dcOpenO 

struct di8)[free_t diskspace; 
ushort usSectorSize; 

Baps_t saps; 

■apv_t tpiapv; 

uint uiKB; 

check_stack(); 

ui!Y = (uinl)*({char*)EXPTBL) « 8; 

DPRINTF2CdcOpenO : IV to call BIOS = XBiXHVn', uiiy); 

/♦ prepare SAM disk */ 

i*e»set(areg5. S. sizeof(regs)): /* for fale safe */ 

regs. be ~ ^xfrBa I _iiAMD; 

callxx((unsigned)5, Sregs); 

if ((regs.bc S Sxtf0B) = « { 

fputsCNo BAiH disk,¥n", stderr); 

exitU); 
) else if {(fdfork = creat (acWorkNaie) ) < H) { 

fprintf (stderr. "Can not creat ¥"Ss¥".¥n". acWorkNane): 

exit(l); 
1 else if {close(fdfork) < 
II (fdffork = open(acWorkNaM. OJOmi)) < 0) ( 

fpriRtf (stderr, "Can not open rSsV'.Yn". acSorkNMe); 

exilO); 
) eise if Ldos_getdiskrree((unslgned)CH' - 'A' + 1), fidiakspace)) ( 

closeffdlCork): 

fputsr^dos_Betdiskfree<) : error.Yn". stderr); 

exit(l): 
} 

usSectorSize = diskspace. bytes_per_sector: 
if (usSectorSize < 1024) ( 

uiKB = diskspace. avail_clusters t diskspace. sectors j)er_cluster 

* (usSectorSize / 128) / 8: 
} else { 

UiKB = diskspace. avail_clusters * diskspace. sectors_per„clusIer 

* (usSectorSize / 1?Z4); 
I 

uiDiskEnd = uiKB; 

/* prepare sapped RAH */ 

if ((paapv = Bapinit(Saiaps)) === NULL) ( 

fputsCNo D0S2.¥n". stderr); 

exit(l); 
1 

juBp_table = saps.iwJuBP; 
juiip_rd_seg = (unsigned)jUBp_table + HD_SEG; 
3u«p_»r_seg = (unsiBned)juip table + mjESi 
UiKB - B; 
tMapSegs = 0; 
Khiie (1) { 

aeaset (firegs. 0, sizeof(reEs)); 

callxx({unsigned)iuiip_table + ALL_SEG. Sregs); 

if ((regs.af 6 PLAG.C) == B) | 

atlilapSeg[ tMapSegs] = regs.af » 8; 



VRAM<73f^^»^[i,fU)S[*dcPut 
VRAM*t'dcGVetVRAM**\ BIOS 



m 'LDIRVM' t *LDIRMV* ^ i^^ 
\-1^Vk7^^(r)X\ 8OO0HLXJiC75# 

mzMtt-^ti s a Kisejij 'acBuf ^ 

^ j^fMSX~Datapackj(Z(J. BIOS 



else 



tMapSegs-H-; 

UiKB *= MAP_SEG_KB; 

DP8iNTP2("dcOp«i() ; 

regs, af » 8) ; 
( 
break; 



segient X^XH allocated. ¥n".¥ 



uiHapEnd = uiDiskEnd + uiKB; 

/* prepare VRAM 

UiKB = B; 

if (getKModeO == B) \ 

TINY tfidth: 



*/ 



if (dtidth = * (chart) LI MEN) <= 32) ! 

ulYRAMOff = axIBBB: /* SCBBEN 1 */ 
UiKB = 48; 

I else if (tUfidth <= 4(0 ! 

uiVSAMOff = 0j.m0; /* SCREEN $ : WIDTH i0 */ 
UiKB = EB: 
I else I 

uiVRAMOff = BxlBffB; /* SCREEN B : WIDTH SB */ 
UiKB = 58: 
I 
I ■ - 

*(char»)lBDE = {cHodeSav = « (chart) MDDE) | 8"; 
uiVRAMEnd = uilifapEnd * uiKB; 
DPRlNTF4CdcOpen() : Disk End = Su, Map End = Su. VRAM End = !(«¥n".¥ 

UiDiskEnd. uiHapEnd. uiVRAMEnd); 
return uiVRAMEnd; 



t 

t/ 
VOID dcCIoseO 



erase tenporary fiie 



TINY 



tplT«); 



/* 

t 

t/ 
VOID 
{ 



/* 
t 

t/ 



check_stack(); 

t(char*)HODB = cModeSav; 

nemset (&regs, 0, sizeof(rees)); 

DPRINTFZCdcCloseO : tMapSegs = Sd¥n'. {int)tMapSbgs): 

for (ptTnp = atHapSeg; tMapSegs; t+ptTsp. —tMapSegs) ( 

DPfi!NTF2CdcClose() : Seg = SdVn". {int)tptTlip); 

regs.af = (uint)*ptTap « 8; 

cailxx((unsigned)iUBp_table + FRE_SEG. 6regs); 
I 

ciose(fd*ork); 
unlink(actorkNaie); 



rewind teaprary file 

dcRefind () 

uiforkOff = 0; 
_seek{fdll'ork. 0. B): 



: SAM disk. ! : aapped RAM. 2 : VRAM 



STATICF TINY i([iere_to_use{) 
I 
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(TJ'LDIRMV"^ 'LDIRVM*C r) l^ 
T(3:VRAM#ifec;)^t'-y h;0^=fi^ 

SCREEN Ot)-h SCREEN 3 X\ -> 
X7^A7-^x ij r(nFAFCH#±fe 
(T^t'-y h 3;b^0(7)%g-tC(i.VRAM 



U_b(7)VRAM$:Sl? fcftflti. 
FAFCH#ifeC7>t:'7 h 3 $: 1 U^ 

-Bpen Problem 

'J^MtaLc/)*Open Problem"^ 






!75FS-AlGTi:MlDt:*]-h U-yv 

mut^'f'-^fz. 



if (uiforkOff < uiDiskEnd) { 

DPUTCHAKCK"); 

return S; 
I else if (uiWorkOff < uiMapEnd) { 

DPUTCHAR<' M' ) ; 

return 1; 
I else if (uiforkOff < uiYRAMEnd) ( 

DPUTCHARCV); 

retyrn 2: 
( else ( 

DPHINTF2 ("where to_useO : uiforkOff = Xuln". uilorkOff); 

exit(l); 

return 3; /* araiding irarning message ihen cC " */ 

I 



/* 

* irite teaporary file 

»/ 

STrtTIC? VOID dcPutMap(pcBuf) 
ctiar «pcBuf; 



uiRt 



uiA, uiRL, ui'^; 



uiTap = liiWorkOff - uiMapStart; 
UiA = atHapSeg[uiTip / MAP_SEG_KB]; 
uiHL = uiTmp ♦ Wi: 
do I 

calla{iiHip_»r_seg. uiA, uiHL, ff, (uint)*pcBuf); 

pcBuf-H-; 
1 ihile (+tuiHL S W23); 



STATrCF VOID dcPutVltAM(pcBuf) 
char *pcBuf; 



auto char 



acBufBIOS[024] ; 



/* RUst be in page 2 or 3 ♦/ 



VOID 
char 
utnt 



■«iset <&regs, t. sizeof(regs)); 

■eiicpyfacBufBIOS. pcBuf, \fS2i); 

regs. ix = BIOS_lDiR¥M; 

regs. iy = uilV; 

regs.bc = 1324; 

regs,de = (uiWorkOff -• uiVBAHStart) * 1P24 + uiVHAMDff; 

regs.b! = {uintJacBufBIOS; 

callxxCCALSLT. 6regs): 



dcPut(pcBuf, uiKBytes) 

♦pcBuf; 

uiKBytes: 

BPRINT?4("dcPutWxW4X. X2u) : uiWorkOff =S4u ",¥ 

(uinl)pcBuf. uiKBytes. uiWorkOff): 
check_stack<); 

for ( : UiKBytes; pcBuf += im, -HuiforkOff. —uiKBytes) ( 
stitch {ihere_to_use()) ( 
.case 9- 

if (write (fdWork. pcBuf. 1)124) h 1024) ( 
close(fd»ork) ; 

fputsTCan not write. ¥n', stderr); 
exitd); 
1 

break: 
case 1: 

dcPutHap{pcBuf) ; 



def au! t : 



break: 

dcPutVRAlKpcBuf) ; 
break: 




) 
DONEO: 



read teaporary file 



/* 
t 

*/ 

STATIC? VOID dcGetMap(pcBuf) 
char «pcBuf; 



uint 



uiA, UiHL, uiTnp: 



UiTap =: UiWorkOff - uiMapStart; 
UiA ^ atMapSeg [uiTap / MAP.SBGJB]: 
UiHL - uiTBp* im; 
do ( 

♦pcBuf = cal!a{juip_rd_seg, uiA, uiBL. S. H): 

pcBuf-K; 
1 while {*^■uiHL 6 1023): 



STATICF VOID dcGetVRAIil(pcBuf) 
char »pcBuf : 



/* Rust be in page Z or 3 */ 



auto char acBuf6IOS[]024]; 

regs.ix = BIOS_lDiRMV; 

regs. iy = ui!V; 

regs. be - 1824; 

regs.de = {u!nt)acBufBIOS; 

regs. hi = (uiWorkOff - uiVRAJKtart) * 1?24 * uiVRA3ilOff: 

caiUi((CALSLT, Sregs): 

■eicpy(pcBuf, acBufBiOS. 1024); 



VOID 


dcGet(pcBuf, uiKBytes) 




cliar 


*pcBuf: 




uint 


uiKBytes: 






DPBlNTF4("dcGet(axSa4X. X2u) ; uiWorkOff =Slu ' 


¥ 




{uint)pcBuf. uiKBytes. uiWorkOff); 






check stack 0: 






iei set (Sregs, 0, sizeof(regs)); 






for ( ; uiKBytes; pcBuf += 1024, ++iii*orkOfr. - 


-uiKBytes) 




switch (where to useO) ( 






case 0: 






if (read(fdWork, pcBuf. 1021) ! 


= 1324) ( 




close{fdWork) ; 






fpulsCCan not read. ¥n" 


stderr) : 




exit (I); 






break : 






case 1: 






dcGetMap(pcBiif ) ; 






break ; 






default: 






dcGetVRAM(pcBuf) ; 






break; 





DONEO: 



^•MSXv^vyioO'f' 
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Msxz^n^^v-faiiitii 




:7p^^^Ayv^x 




^^B-\-yn<)3ix • A-^;^ 








B 15 



1/ 



MSX2+WH 







?)„ C-T'(Jmi05C$T'l(WTS 



■^^cb. S:*<?)A:'jii^5mfc% 



7 K /X < :;^ 

e. ^n<7^A»S7BfC(*x5- 



<■ II II •■■■ II M> »iiii>i II II >-titio-iiiti>-iiiiiiMHii< -riMO-ii III! •■ II II ■■iiiiii-inni-ni II »ii II ii'iiiiii >iitii ■•■■■III >niiii-iiii>i'Mi ■■■■•MiiMiiiii •Ml II ■•till II -Mill! -Ml II Mil II ii>i<iiii-iiiii i-ii iiii-ui III' 11 iiii 'iiiiii-iii II >■ iiiiii •■■III ■■)iiii>>ii 



3 M \-^(t 



BATTLE 







MSXS VRAM64kliLh 

UXK(S107^-i'"Cli« 

u-V- 2 (i-:^ 3 -r :^x-f -y ^ i: 
K7 3'>. ^atT^SAT-fll 



<i^.^^Sf^T-^ So 




* t icA^ < igi-'^ff *<;*i0^i;''i 6 ^'^ 



K 



^^^^rSSd;^[c-rn(3fd;A^ofcA^=6c 
{ff/K'^Sieeii^EB} 
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E 



3 ^ \m ir r^ 



mSTsFl 



Doppel(K^:/A:jb) 



i^pr; rti /MinlstarA MSX3aKtU± 
yvl«)CnT/ Bitchson U7.N3l08^—:^i: 



tzhotz^fyK—mzi-f\^''y^Ji^ 




• Wf^Ht-kKv-y--^ KfflS?ft-CL^S 



^ J: T t =1 9 -rlS:^C7)>r*-Afc'„ 

V-izii^tiiHP). iHmttif^T). 

WMt! (DF)t7) 3 OCO/x" V ^ -5- 

^^^myj'Mtfztzut'o, m 



■^x. fc 5'V — i^;!?^ lb/ \°-7 ^ — 5' — 

fc% m;'z>xm±^mLXLt'^fz 

Mii:^'dJ\^—Mztj:r>X^'^^, 



T* H /X 'f :^ 



'II II iMiii (II I II •■III 1 Ill K-i • ' ' 1 1 1)1 )■ I II III ■• I It i>-< II 11 >• Mil II ■> II III- 11)111 ■iiitii-iii iii'ii INI -I im>-i 11 II >■ II II ii-iiiiii- III mil Ill II Ill- 111 II I ' 11 II I III < II II II - 11 II II -11 



3 ^ A it <^ f« 



x^mm 



\^^jm 



WAR IN THE WALLiHYPER BEFORE BURNER 



S^m/fflM^ 



MSX3BKUU 



i ^M^imsm^ 



MSXE VRAM18aK«5MSX^-LoS 



>^'—Mz^ 

:5"i' h7Hi|®T-7.'<— ;^+— $■ 
ntt^-l^7.9~Vfz. ^-V 

^-;^+~Jfc{3: V '}tf-AX'^^ 

:x.^—7.^—xi$W] 

m^^LB^tzh. g 
mz^^^Tizu-o 



-<xmm-t^i3\ mm^^muz j 

7 K /\ -f :;^ 



— IJ H F' IN THE l-J H L L - 




tnw(n^--y \-^mmzmrt, ^'j'-vA^iaia-rs^'. 



tTi.^<3D->j.- 

ts V a ^.^^,^x'^ tth (c>r- A*< 

hm^ i>^'(7.T--<-j-^x-nm. 
^±.T^-^i.zmt)^ u. h ij #- A 

Tv\*;u:^ via. h u :^'- b TilM 




Krt':'SUfcm'y-A^t5^- 



^•MSX-7:;&->^>100^ 






300-f- ?=■ *^ T ;; T re'"i.>i-fo 
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KM ir & 



l±S^P^ 




momomm 



m/mmmn 



|j7.sia]ii'^-yi^ffl« 




■III iii-iiiiii-imri- iiiii>-i III mil ■•■III I ii ■■•iiii i ii-i ii ii ■•iiiiti •■tiiii i iii-iii tmt-iii in- iiiiii •■tii titi ■■hi ■!■■ ii ii ■• ■iiii • > < ii» •■iiiit-tiiiii' ■iiiit-i inii'iiiin '■tim-'iiih- ■imt' 
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1000 SCREEN 5,0: COLOR 1 5. 1 . 1:C0L0R=NEW 

1010 OPEN "GRP:" AS #1 

1020 DEFINT A-Z 

1030 DIM SX(8), SY(8). PR (I 5) . PG (1 5) . PB(15 

) 

1040 GOSUB ]320:GOSUB 1400:GOSUB 1460 

1050 GOSUB 1250 

1060 CLS:X=0;Y=0:MD=0:DC=15 

1070 IF (STRIG(3)=-1) OR ( (PEEK (&HFBEC) 

AND 4) =0) THEN GOSUB 1530 

1080 IF STRIG(1)=-1 OR STRIG(0)=-1 THEN 

GOSUB 1770 

1090 GOSUB 11 00: GOTO 1070 

1100 PUT SPRITE 0. (X. Y) . 1 5. 

n 10 PUT SPRITE 1. (X, Y). I. 1 

1120 IF IN=3 THEN 1 170 

1130 S = STICK(IN-1) 

1140 IF (PEEK(&HFBEB) AND 1 ) =0 THEN V=4 

ELSE V=l 

1150 X=X+SX(S)*V:Y=Y+SY(S) *V 

1160 GOTO 1190 

M70 A=PAD(i2) :VX=PAD (13) ;VY=PAD(14) 

1180 X=X+VX:Y=Y+VY 

1190 IF X<0 THEN X=0 

1200 IF Y<0 THEN Y=0 

1210 IF X>255 THEN X=255 

1220 IF Y>21 1 THEN Y=2n 

1230 RETURN 

1240 END 

1250 CLS:PRESET(0. 0) 

1260 PRINT #1, "'jnvT< 

1270 PRINT #1. " 

1280 PRINT #1. - 

1290 I$=INKEY$ 

1300 IF "1">I$ 

1310 IN=VAL(I$) 

1320 RESTORE 1380 

1330 FOR 1=0 TO 1 :B$="" 

1340 FOR J=0 TO 7 

1350 READ A$:B$-B$+CHR$ (VAL ("&H"+A$)) 

1360 NEXT J:SPRITE$(I)=B$:NEXT I 

1370 RETURN 

1380 DATA 00, 40. 30, 3c, le. Ic, 0a, 00 

1390 DATA 60, b0, ce, 43. 61. 23, 35, If 

1400 RESTORE 1440 

1410 FOR 1-0 TO 8:READ SX(I}:NEXT 

1420 FOR 1=0 TO 8 : READ SY(I}:NEXT 






OR I$>"3" THEN 1290 
: RETURN 



1430 RETURN 

1440 DATA 0, 0. 1. 1, 1,0, -I.-l, -1 

1450 DATA 0. -1. -1, 0. 1, 1, 1, 0. -1 

1460 RESTORE 1500 

1470 FOR 1=0 TO 15 

1480 READ PR (I), PB (I) , PG (I) 

1490 NEXT I: RETURN 

1500 DATA 0, 0. 0.0.0,0. 1. 1. 6, 3, 3, 7, 1. 7. 1 

1510 DATA 2, 7, 3, 5. 1 , 1 , 2, 7. 6, 7, 1 , 1 , 7, 3, 3 

1520 DATA 6, 1, 6, 6, 3, 6, 1, 1, 4, 6, 5, 2, 5, 5. 5. 

7. 7. 7 

1530 IF Y>90 THEN Y0=90 ELSE Y0=Y 

1540 IF X>176 THEN X0=176 ELSE X0=X 

1550 COPY (X0, Y0) - (X0 + 79, Y0+100) TO (0.0 

). 1 

1560 LINE (X0. Y0)- (X0 + 79, Y0+100), 15. BF 

1570 LINE (X0+1, Y0>1) -(X0+78. Y0+99), l.BF 

1580 RESTORE 1760 

1590 FOR 1=0 TO 9 

1600 LINE (X0, Y0+I*10) -(X+78, Y0+I*10). 15 

1610 READ A$:PSET(X0+2, Y0+I«10 + 2). 15 

1620 PRINT #I.A$:NEXT I:YR=-1 

1630 GOSUB 1 100 

1640 IF X<X0 OR X>X0+78 OR Y<Y0 OR Y>Y0+ 

99 THEN 1630 

1650 YS=INT ( (Y-Y0) /10)*10 

1660 IF STRIG(0) OR STRIG(I) THEN 1710 

1670 IF YS=YR THEN 1630 

1680 LINE(X0+l, Y0+YStl)- (X0 + 78. Y0+YS + 9) , 

4. BF. XOR 

1690 IF YRo-1 THEN L INE (X0+1 . Y0+YR+ I ) - ( 

X0+78, Y0+YR + 9), 4. BF, XOR 

1700 YR=YS:GOTO 1630 

1710 IF STRIG(0)+STRIG(I)<>0 THEN 1710 

1720 MD=YS/10 

1730 ON MD+1 GOSUB 1750, 1750. 1750. 1750, 1 

750, 1750, 2000. 3000, 4000, 5000 

1740 RETURN 

1750 COPY (0. 0)-(79, 100), 1 TO (X0, Y0) : RE 

TURN 

1760 DATA "K *r, "7<V", "*' ^n", "*'75X7A" 

, "9-H'. "if -". "Ili-". '■^' -fvh", "A' [-7h", t' f 

1770 ON MD+1 GOSUB 1790, 10000, 11000, 1200 
0. 13000, 14000, 15000. 16000, 17000, 18000 
1780 RETURN 
1790 PSET (X, Y), DC: RETURN 
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CIAL 
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IB ■ ENIKI BY.HIRO 

21f SCREEN Ji:_KiNJIl 
3B PRINT" Ifi B E" 
4lt LINB(40.0)-(2Bil, 180), 6. B 
5B LlNE(14a.7a)-(!<)2,172).I4,BF 
60 FOR I=a TO 9:L!NE(6a.aH+I«10)-(12H,80 
+ I»ia) , 1:NEXT 
7a FOR 1=1 TO 6aB:NEXT 

80 SCREEN 5:_KANJI1:CLBAR iaaH:DEFINT l- 
Z:DIK C(I5}.CS(9) ,CC$(9) :KE¥ OFF 
9B _CLS:_KiNJIl 

laa OPEN "ENIKI. D*Ti" iSll LEN = 2i4 
110 FIELD 11,2 AS VS,2 AS N$ , 2 AS DS.SAS 
TS.ea AS cs(0).20 as cs(i),28 as C$(2). 
20 AS C$(3),20 AS CS(4),20 AS CS(5).2e A 
S CS(6),2a AS C1(7),Z0 IS CS(e),20 AS CS 
(9) 

120 GOSUB 1680:SCREBN5.0:OK S GDSUB 2118 
,980.150.1520,2268 
130 GOTO 120 
148 ■ 17 *J 
158 ^CLS 

168 ¥1S="":H1$="":01S="-:T1S="":F0R J=0T 
09:CCS(J)="":NEXT J 
170 PLAY"s0t200iia000o5I32 
1S8 Z=1:L0CATE 0.1:GOSUB 1868: _CLS :GaSUB 

1S80 
190 Z = 0;O$ = "":PRINT " i ^ L V^ T i" *> ? <Y 
/N)";QS 

208 0$=IHKE¥J:IF QJ="" THEN 200 
218 IF QS="N" OR QI="n" OR Q$="N" OR 03 
=" n " THEN 150 

228 IF HOT(QS = "¥" OR OS = "y" OR [1J = "V 
R QS=" y ") THEN 21 
225 _CLS:PRINT " 
T 

238 PRINT" 7U! tfi^X*? (V/N) ° ; 
240 A$=INPUT$(1) ;A=INSTR<"¥yNn".Aj} :IF A 
=0 GOTO 24B 

250 IF AO THEN HF = 1 '711) 7*1) 
260 SCREEN 5,0:COLOR 1 5 . . : _KAN JI 1 : CLS 
:I(D = 8:C = 15:HE = 8:H = 8 

270 LOCATE l.aii-RINT" ^ ^ " ; Y$ ; " * " : KS ; 
" n ":DJ;" B " 

280 LINE(22B.B)-(248,15),C,BF:LINE(140.2 
8)-(248.280),I4,BF 
290 PRINT 

feSraS J;" 

fe S- iti 6 " 

R *■*»< " 

Iftftltt" 
»& fi U" 



teSr«S4Lj ^ ":PR1N 



I 

P 

C 

' SPACE 

■RETURN 

Fl 

F5 



300 PRINT 

310 PRINT 

320 PRINT 

330 PRINT 

340 PRINT 

350 PRINT 

360 PRINT 

37B AJ = "":POR 1 = 8 TO 7 :iS = A$fCHH$ (¥AL< "8 

H"+HIDS("FaceA09BB88482flI",I«2+l,2))):NE 

XT I:SFRITES{0)=A3 

38B AJ = -":FOR 1 = 8 TO 7 : *$ = AS*CHR${VAL("4 

H"tHIDS{"0888B87788B8a800M«2-tl,2))):HE 

XT I:SPRITES(1)=AS 

398 X = 8:¥ = B:PUT SPRITE B, (8,0). 15,0 

488 ON HEY GOSUB 260 . . . , 718: KEY (1) ON:K 

EY (5) ON 

410 IF KD THEN LINE (X 1 , Y 1 ) - ( X , Y) , 9 , ,XOR 

420 IF H=l THEN PUT SPRITE I . (XI-4 .¥1-4) 

, .1 

430 IF H = l THEN l(E = l ELSE KE = B 

440 IF NF=0 GOTO 468 



45B A = PiD{12) :X=X*{PAB{13)/2) :Y = ¥t(P*D(l 

4)/Z) 

460 A=STICK(0) :IF A=0 GOTO 488 

47B ¥=Yf(A=a OR A{3)-<A>3 AND A(7):X=X*( 

A)S)-(A>1 AND A(5) 

488 IF X<148 THEN X^140 ELSE IF >;>24B TH 

EN X=24B 

498 IF Y<20 THEN Y=2B ELSE IF YJ200 THEN 

¥ = 200 
500 PUT SPRITE 0. (X.Y-i>, .8 
510 HR=SQH{(X-X1) 2+(¥-Yl) 2) 
520 IF HD THEN LINE(X1 , Y 1) - (X ,¥) . 9. ,XOR 
530 AS=INKE¥3 

540 IF AS="I"OR AS="i" GOTO 88B 
550 IF iS = " '■ OH STRIG(l) GOTO 608 
560 IF AS='P"OR A$="p" GOTO 838 
5?fl IF iS="C" OR AS="c" GOTO 950 
580 IF AS=CHRS(13) OR STRIG(3) GOTO 668 
598 GOTO 418 
680 ■ 'i'Jl-L*\-i*\ 

618 IF 1ID = 1 THEN LINE(X 1 , YD - (X ,¥) .C 
628 IF HE = 1 THEN CIRCLE (XI ,Y1) . RH.C: PUT 
SPRITE 1 . (8,217) 
638 XI=X:¥l=Y;PLAY"a" 
648 IF H=l THEN GOTO 410 
650 KD=1:HE=0:GOTO 448 
668 ■ ty/ kl.*i 

678 IF H=l GOTO 69B:IF HB=0 GOTO 410 
580 LINECXl .¥])-(X.Y) .9, .XOR 
690 PUT SPRITE 1, (8,217) ,,0 
700 Ka = 0:IIE = B:H = B:PLA¥"c":GOTO 418 
71B LOCATE 0,Il:PRINT''5KlS T ^*'. Y/N" 
72B AJ:"" 

730 AS=INKEY$:IF *$="«" OR iS="n" THEN 7 
B8:IF NOT (AS="Y" OR A$="y") THEN 730 
74B IF A$="" THEN 738 
758 KEY (i) OFF:Ke¥ (5) OFF 
760 GS='"V"*YS + NS + DS 
778 LOCATE 3B.0;PRINT GS 
788 ON ERROR GOTO 820 

798 COPY(I40,2B)-(240.2BB) TO GS+'-PIC" 
888 PUT SPRITE 0. (B,216) 

818 PRINT" ^ffi ! '■:C0LOR 15,4,7 :_CLS 
iIF W=ITHEH GOTO 1410 ELSE GOTO 1390 
820 PRINT'DISK ERROR! ": SEEP : RESUME 718 
838 PAINT(X1,Y1) .C;i1D = e:G0T0 530 
840 LOCATE ^5,6:PRIHT"e;6!A0i■fr^" 
850 RESUME 1628 

860 LOCATE ^5,6■.PRlNT"te4'*')J^i:^■■ 
870 RESUME 1268 
880 ' 

890 C=C+1:IF C>15 THEN C=B 
980 IF C=!4 THEN COLOR SPRITE(0)=9 ELSE 
COLOR SPRITE<0)=C 
91B COLOR C.B 

920 LINE (220,0)-(240.15) .CBF 
938 IF C=U THEN COLOR SPHlrE(l)=4 ELSE 
COLOR SPHITE(1)=15 

94B GOTO 538 

958 H=l :HD=8:GOT0 600 

968 ■ 

978 ' -7* ? \k 

988 _CLS:R=1 

998 IF LOF(1)=0 THEN 1330 

IBBB T=1:PRINT " ft »J 6' <= -- (1)": 

PRINT " a ffca 6 -- (2)" 

1810 QA3=INKEY3:IF QA3='"' THEN 1B18 

IB2B IF QAS="1" THEN 1B50 

I03B IF 0A3 = ''2" THEN 1080 

1040 IF OASOT OR aAS()"2'' THEN 1810 

!850 R=l 

186B 1=1 

1B7B GETll.R-.GOTO 1218 

1880 T=0:R=1:¥1S="":H13="':D!S="":T1S="" 

:FOR J = B TO 9 :CCS { J) = "" : NEXT J 

1890 _CLS:LOCATE B,1:PRINT ° («} ^ (^ S H B 



11B0 Z=l 

1110 GOSUB 186B:_CLS:GOSUfi 18BB 

1120 PRINT "i^t-HT'rS' ? (¥/H)" 

1130 qS=INKB¥$:IF Q$="' THEN 1138 

tl40 IF QS = ''N" OH OS = "n" OR Oi = "N" OR 

S = " n ■■ THEN 1088 

IISB IF N0T(Q3 = "Y'" OR OS = "y" OR OS = "Y" 

OR H$ = " y ■■) THEN 1138 

1160 ¥1S=¥3:M13=MS:D1S=DS 

1170 CLS:PRINT" Wa if] % ";R:GBS = 

YlStHIS*DlS 

1188 GET f 1 .R:IA = B:GAS = ¥3-i-H3 + DS 

1198 _KINSTR(IA.GA3.GB3} 

1288 IF lAOl THEN 1328 

1218 SCREgN5:_KANJIl:Z=B:G0SUB 1790 

1228 LOCATE 8.11:PRINT " ESC:>-1- SPACE: 

1238 G3="V"*YS+KS*D3 

1248 ON ERROR GOTO 860 

1258 COPY GS*".PIC" 10(140,28) 

1268 I3 = INKE¥S:IF 13 = "'' THEN 1Z68 

1278 IF IJ=CHRS{27) THEN RETURN 

1280 IF I3=" " AND T=B THEN 1B80 

1298 IF IS=" " AND T=l THEN 1318 

1300 IF I3<)CHR3(13) THEN BEEP:GOT0 i26B 

1310 R=R+i:IF R(= L0F(1)/214 THEN 1060 E 

LSB 1330 

!32B R=Rtl:IF R (= L0F(I)/214 THEN 1178 

1 33 tf CLS 

1340 PRINT "FILE&;^T»!*L.SL.t. ■:Z = 


1350 PRINT "RETURN K EY S" ff L t T S l-^ . " 
1368 IS = INKEY3:IF 130''" THEN 1360 
1370 IS=IHKEY3:IF I3=CHR3(13) THEN RETUR 
N:ELSE 1370 
1388 ' ^0? 

1398 R=L0F(l)/214*l:FS="ie(»":W=e 
1488 _CLS:LOCATE Z.7:PRINT " H ":R;' 
«■ ":F3;" U * ■*■ . ":F0H I = 1TO5B0 : NEXT I:IF 
B=l THEN 150 

1418 T13 = "'':F0R J = B TO 9: CCS ( J) = "" tNEXT 
J 

1428 LOCATE 2,9 
1438 PRINT "JfK ":YS; "^'■;)($; "fl ■■;D$;" 

B" 

1440 PRINT :GOSUB198B:_CLS:GOSUB 1798 

1458 ¥=0 

1460O3="":PRIHT"J;%LV>T-fA' ? (Y 

/ N ) ";Q3 

1470 03=INKEYS 

1488 IF OS = "N" OR Q3 = "n" OR 03 = " N" OR Q 

i=" n " THEN 1400 

1498 IF NOT(QS="¥" OR 03 = "/" OR a8 = "Y" 

OR 03=" y ") THEN 1470 

1508 IF QJ="" THEN 1478 

15IB PUT 11 .R:RETURN 1 2B 

1528 _CLS 

1538 INPUT "BiErSHU ";H1 

1548 IF Rid OR R1)L0F{1)/214 THEN BEEP: 

PRINT " i <^ S ti * J -t ^":GOT0 1538 

1550 _CLS;PRINT " "jRli'H" 

1560 SCREEN5:_KANJII 

1570 GETIl.Rl :GOSUB 1790:PRINT 

1580 '03="" 

1590 GS="V"*Y3*M3+D5 

1600 ON ERROR GOTO 848 

1610 COPY G3+".PIC" TO(I4B,20) 

1620 LOCATE B, 111 PRINT "UiEUi-ffr- ( 

Y/ N ) " 

1630 Q3="":03=INRE¥S 

1640 ' 

1658 IF QJ = ''N" OR QS = "n" OR OS = "N" OR 

S=" n " THEN RETURN 

1668 IF NOT(QS = 'Y" OR QS = "y" OR 03 = "Y" 

OR Q3 = " y ">THBN 163B 
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1670 F$ = "ff iE'':W = l:R = Rl:GOTO 1408 

1680 _CLS 

1690 LOCATE 0.Z:PRINr " 1 : B S " 

1700 PRINT " Z: B E 5- a £ " 

1710 PRINT " 3: B e S: » < " 

1720 PRINT " 4: BiE" 

1730 PRINT " 5: K*> ►) " 

1740 PRrNT:SJ="" 

1750 PRIRT " S-^ £■ a^T < Sf ? V^":SJ 

1760 S = :SJ = INKEyS:_KINSTR{S. "12345", S3 

) :1F S$="" THEK i76B 

1770 RETURN 

1780 ' tifli-' 

1790 PRINT "^a ■■;¥J:"*";HS:°H ";QS:" 

a '; "%% ";T$ :GOTO 1810 

1800 PRINT "TK '■;¥$;"#";N$:"^ '■;DS:" 

H" 

1810 IF 2=1 THEN RETURN 

1820 FOB J=0TO9 

1830 PRINT "•";CS(J) :NEXT J 

1840 RETURN 

1850 ■ r y iilU^ 

1860 _CLS:PRINT " * & A 7l L t T 5 l-' ( 

2 s: I' ut f*i ) ■■ 

1870 PRINT ■'«lil" + ¥l$;CHH$(13) ; 

1880 LINBINPUT ¥Ii:^K*CNV(¥lJ.¥lS) ;RSET 

¥$=¥1S 

1890 PRINT "R & A Jr UT T ? t^. (2 X^ 

a?J ) " 

1900 PRINT ■■0a''»KlS;CHRJ(!3>; 

1910 LINEINPUT H1S:_K*CNV{K1S,H1S) :RSET 

tlJ = KlS 

1920 H=ViL(KS):IF H>12 GOTO I91B 

1930 PRINT "B 5: X:*] L t T S n . { 2X^ 

lilf^ ) " 

1940 PRINT "00"*D1S;CHR$(13) ; 

1950 LINBINPUT DlS:_KiCHV(DlS,DlJ) :RSHT 

DS=D1S 

1960 D = V/iL(D$) :IF D)31 GOTO 1950 

197B IF Z=1THEN RETURN 

1980 PRINT "SSiS- A:Jl L T T S V> ( -^ ft 4 

5: ^ y (^ ) " 

1990 PRINT T1S:CHRS(I3} 

2000 LINEINPUT TIS:LSET TS=T1$ 

2010_KLEN<TK,T1$,1}:_HLEN(TJ.T1S.2):IF 

(TK/2+TJ) )A THEN BgEP:GOTO 1990 

2020 PRINT "X* S- A:l3 UT f 3 !-> t 1ft 10 

x^a^) - 

Z03B FOR J=B TO 9 

2040 PRINT J+I:"ff B ";CCS<J) ;CHHS(I3) 

2050 LINBINPUT CCS(J) 

2060 _KLEN(c:k,CC$(J) ,1) :_KLEN(CJ.CCS(J) , 

2):IF (CK/2*CJ) > 10 THEN BEEP:GOTO 2B40 

2B70 LSET CS(J)=CCS(J) 

2080 NEXT J 

2090 RETURN 

2100 ' tf/' 

2110 _CLS:LOCiTE 3.0:PRINT" g »C 

2i2B LOCATE 3 . II : PSINT"REIUHN KEY &ff L 

T T 5 H " 

2130 IF L0F(1)=B THEN 2.50 

2140 FOR H=1T0 LOF(l)/214 

2150 GETll.R 

2160 LOCATE 3, (R«0D18)*1 

2170 PRINT"^ et";V$:" *":Ki;" fl ";DJ: " B ' 

: " " ; R ; " S " 

218B IF RK0D1B=9 THEN 2190 ELSE 2220 

2190 AS=INKEVSiIF i$()CHRS(13) THEN 2190 

2200 IF il="" THEN 2190 

2210 _CLS:LOCiTE 3.»rPRI»T" B <S 

2220 NEXT 

2230 AI=INKEYS:IF AS=CHRS(I3) THEN RETUR 

N 120 

224B IF A$="" THEN 2230 

2258 LOCATE 3.7rPRINT "B^ifihntitA." 

iPRIHT" B e ir » H T T S H":G0TO 2230 

2260 CLOSE:BND 
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IB SCREENl : COLOR 15. 1 . 1 : CLEARBBB . aHCBBB : A 
D=&HDBBB : FOR l=fflTO 1963 : A=UPEEKC 1 > : A=AAND2 
240RA¥2AND 1 5 : POKEAD+I , A0Rfi*2 : NEXT : FORI = 1 



BG4TO2e40:POKEAD+I , VPEEKC I 5 : NEXT : BSAVE'T 

ONT . DAT" . &HDa80 . &HD7F8 : P0KE&HF9 IF. 3 : POKE 

&HF92B , e : P0KEaHF92 1 , 20B : SCREENS . 2 

2B OPEN"GRP: "ASHl : CLS : PRESETC B , B >: COLOR 1 

5:PRINT»tl ."THE BATTLE OF" ; PRI NTM 1 , "" : COL 

ORlBiPRlNTttl , ■' KING":FORJ=0TO23:FORl 

=«T01B3:A=P01NTC [ .JJ:C0L0R15 

38 L 1 NEC 28 + 1*2,4-6 + J *2>-C 28+ 1*2+2, 48 +J*2 + 

2),A.BF:NEXT:NEXT:LINECa,e5-CllB.32), l.B 

F:PRESETtG4, 12aj:PRlNTt*l ." PUSH SPACE KE 

Y": PRESETC 1 12, 1 44 ): PR I NTH 1 , " 199 1 »" r PRESE 

Tt IE. 16B) -.COLOR 15 :PRlNTtti. "PRESENTED BY 

RIYOU TAKAHASHI" 

4B BSAVE "TITLE. DAT". B.&H5FFF,S:FORH=0TO9 

: ES=" " : S3SCB ) = " " : S3SC I ) = "" r READAS , BS : SS= 

AS+BS:FORJ=BTOl:F0RI=BTO15:A=yALC"&H"+MI 

DSC SS , K»2 + 1 ,2)): E$=ES+CHR$C A ) 

50 SlS=RlGHT$C"BBBaeea"+BlNSCA),e>:K=CK+ 

1 )M0D32;FORL=6T01STEP-l 1 SZS=S2S+M1D$CS1$ 

,L, 1 ):NEXT:S3SCJ J=S3SCJ J+CHRSCVALC "&B"+S 

21 ) ; : S2$=" '• : NEXT r NEXT : SPR 1 TE$C H >=E$ : SPR 1 

TESCH+16 )=S3SC 1 )+S3$CB ) : NEXT 

68 FOR1=0TO15STEP2:COLORSPR1TEC 1 J=1:COLO 

RSPRITEC I+l )=72: NEXT: FORI =16T031STEP2: CO 

LORSPRITECI )=1:COLORSPR1TEC1+1 J=69 : NEXT 

7a BSAyE"SPRITE.DAT",ftH749B.&H7FFF,S 

ae As="2i0eci i ieB7GeiBBBacD5ceec98O2i0ec 

286 iaGB2D7E0ee 1DC22C1177 !BF5CD25C0C93EBaC 

921BaC2BEB2e6eB793DEEeiCB2 7CB27CB2757CB2 

7CB27CB275FCB2792B3C6a832B7FC7a30CB27CB2 

7CB27CB27CG2a32B9FC7ee23DGF7ECG3eOD21B9B 

aCDSFB 1 ieC6BDC22ACBC9" 

9B FOR 1=8X0 IBT : POKEAHCBBB+ 1 , VALC "AH"+MI D 

SC AS . I *2 + 1 . 2 ) J : NEXT : BSA'.'E"SPH .BIN". iHCB8 

a.&KC86A 

IBB DATABF8BBBeeB61113132e2e2e2B4B4B4B3F 

,BBBE51512EeEEEEE3EBElEBEeEBEeEF4,aBB7B7 

B787BEeDBClFlFlFlF3F3F3FBB,BBaa8EBEC8B44 

4a4C4F4E4F4F4F4F4ea 

ne DATAB3a7aFBFBFBF17232a282C4G434B4e7F 

,CBE8FBFeFBFaE6C4B4B2329C82a2B4F8,BBB387 

e6a786BBlClF17 13393C3F3FBB.BeCBEaABEa2BD 

83BF8FC6C6B7CFCFBBB 

12B DATAaEB9e8fflF0F0Fl723234343BlBBBBBBFF 

.BB5aiBFaFaFBE8C4E2EZElE13 1 19 lSFF,aBaGfl7 

e8BGB6aBlC103D3D7E7F7F7Faa,BaAaE8BBAeABD 

a38DCDCDElECEE6EG8B 

13B DATAB3B7a7BFBFB7aBl 12B2 12a29274a4a7F 

, FBFBF8FeF9FBF7EF5FBEDCEAFACl 3 lEF , aaaeBB 

BaB3B3B5aElFlElF161B3F3FBB.BBBaBa8B5a5BE 

aiGAE5C28LI4C43ECEaB 

14B DATAEBF3FCFDFAF3E24283B1S1B38383433F 

, B 137EF IFaFBFABBABAFl F9FDFDFEFCFe , 886873 

7A756C5D3D7C7E7E7D7D7C3De8.8aBB16EEFe425 

4F4F4aEF6eAFAB4F8BB 
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18 SCREENS. 2lCLEAR1588.8,HC0BB:COLOR15. 1 , 

1 : SETPAGEa . 3 : BLOAD"SPR ITE. DAT" . S : SETPAGE 

8.2: CLS: BLOAD"T ITLE . DAT" . S: BLOAD"FONT . DA 

T" : P0KEaHF9 IF , 3 : POKE&HF92a . 8 : P0KEaHF92 1 . 

2BB : BLOAD"sph .bin": 0NSTOPGOSUB98a : STOPON 

ZB DEF!NTA-Z:DEFUSR=&HCaBB:DEFUSRl=8.HC88 

E:DEFUSR2=iHCa25: SETPAGEa. 1 : COLOR , 8 , B : CL 

S:D!riU)C i ,a}.MC 1 .B),XXC l,2a5, YYC2B>,PPC 1 . 

20 > 

3B SETPAGEa. 1 : PAINTCB . 5 . 3 : COLORl : DRAW"B 

M15.BDlGHBE9RlD16E8HB":PAINTC13.5),a. 1:P 

AINTC 1B.5J,7. 1 

4B SETPAGEB , 3 : CLS: OPEN"GRP: "AStt 1 : COLOR=C 

9 , 7 . 7 . 7 :i : COLOR=C I 3 . 3 , 3 , 3 > : COLOR=C 14.5.5. 

5 > : COLOR= C 4 . 8 . e , 7 5 : COL0R=C 5.7.7,7): COLOR 

=C6,4.a.B>:C0LOR=C 11.7.7.7) 

5B X=a:Y=24:XI=71:Yl=167:G0SUBS8B:X=ie4: 

Y=24:Xl=255:Yl=167:G0SUBa8e:X=B:Y=16BlXl 

= i27:Yl = 191:GOSUB88fl:X=12B:Y=lG8:Xl=255-. 

Yl=13I:GOSUBBSB:PAINTC93.99 3.3, 13:LINECfl 

,2B3-C255.2B), 1 : PAINTCB ,8 ),7 , 1 

60 FORJsBT01:REST0REBBe:FORl=eT07:READNA 

S<J. 1 ),HPCJ, I ).UACJ, D.APCJ. 1):MWCJ, I )=W 

ACJ. I D:MHCJ. 1)=HPCJ, 1>:MCJ. I )=S:NEXTI, J 

7B FORI =aT03 : F0RJ=flTO7 : P0KE*HC2aa+ 1 *Q+J . 

VALCMIDSC"335eaBB6". J+1. 1)):NEXTJ, I 

SB FORJ=aT01 iFOR!=0TO7:PRESETCB+J*lB4,32 

+ 1 * 1 6 > : C0L0R7 ; PR I NTtt I , R I GHTSC STRSC PEEKC & 

HC2BB + J*8+1>). 1>; : C0L0R3 : PRINTt*! . NASC J , I 

):C0L0R15:PRESETCB+J*lB4,4e+I*16):PRiNTtt 

1 ."HP"+RIGHT$CSTR£CHPCJ. I ) > , 2 )+"^"+RI GHT 

SCSTRSCHPCJ. 1)).2>;NEXTI, J 

98 FORJ=aTO 1 : REST0RE9B : FOR 1=8T07 : READA: X 

CJ, 1>=72+J*96:YC 15=1*16+32 iPC J . i>=A+J*16 

: NEXT I , J ; DATAB .2,4.5,6,6,6.8 



IBB FORJ=aT01:FORl=BT07:XXCJ. I*2>=XCJ. I J 

:XXCJ, !*2 + l) = XCJ. l>:YYCI*2)=YCi ):YYCI*2 + 

1)=Y<I :>:PPCJ, 1*2)=P(J, l>:PP<:j, [*2+l )=PCJ 

, 1)+1:NEXTI, J:FORJ=aT0! : FORl=eT0 15 : AD=S.H 

C188+J*54+I*4:POKEAD.YYCI^:P0KeAD+l.XXCJ 

, 1>:P0KEAD+2.PPCJ, I )*4:NEXTI. J 

110 RESTORE 1 18 :FORI=aT07: READAS :MSC1)=AS 

:NEXT:DATA" Tv'L "," tn.>4.< " , " ftfttr-)"," ftfttfi 

"," ftttS-i"." li/tfi" . ■• ftftir^"," liiDfe ":SETPAG 

E2:A=USRCa> 

128 lFSTRlG(8J=BTHENl2a 

130 SETPAGE3,3:G0SUB84B 

148 '••• MAIN 

150 C=B:FCB)=aiFCl)=B 

1GB FORJ=0TO1 : [=C I + l )M0D2 : B=I XORl :ONFC [ ) 

+ 1 GOSUBlSa , 278 . 358 . 43B , 4BB : NEXT : GOTO IBB 

IBB G0SUB2BB: IFSTRIGC ! )<>BTHENG0SUB24B 

138 RETURN 

288 S=ST1CKC I ): IFSOBTHENLI NECB2+ 1 *76 , 33 

+CC n*8:>-C99+l*7G,49+CC l)*Bi,3,BF 

218 CC15=CCn + CCS=5)*CCC 1 J<143-CS=1)*CCC 

1 )>a))*2:C0PYC I*16.B)-C 1*16+15, 15), ITOCB 

2+ I *76 . 33+CC I >*e ) . 3 : RETURN 

228 SETPAGE, 1 : PA INTC 13+1 *5 , 5 ) , C , 1 : SETPAG 

E , 3 : RETURN 

248 IFHPC I ,CC I >^2)=aTHENRETURN 

25B lFPEEKC&HC2BB+l*BtCCI)^2)<>BTHENRETU 

RtJ 

280 FCI)=l:X=!:Y=22:MS=HSCCCl>/2)+" X% 

5 ":G0SUB86a:AC 1 )=e:G0SUB3ia 

27B G0SUBG4a: IFFC I )=0THENMS=SPACE$< 1 4 ) : G 

0SUBB6e: RETURN 

280 iFSTlCKCl)<>aTHENG0SUB3iB:ACI)=CACn 

+l)M0D2:G0SUB3ia 

29B IFSTRIGC I )=~1THEN2=CC 1 >.'2:0NAC D + IGO 

SUB33B.42B 

388 RETURN 

318 LINEC8+AC I )*5G+I*128, n6)-C63+AC 1 i*5 

G + 1*12B, 183>, 15, BF.XOR: RETURN 

330 IFCCI)=2THENFCn=4:RETURN 

34a Ft I )=2:x=i : Y=22:MS=" if «t ? ": 

GOSUBSBB : G0SUB4Ba 

350 G0SUB64a:S=STICK< I >: IFFC I )=aTHENGOSU 

B4Ba : MS=SPACESC 12 ) : GOSUBBBa 

36B IFS<>BTHENG0SUB4BB:AC!)=AC1)+CS=5>*C 

ACl K7)-CS=n*CAC I )>8):G0SUB4BB 

378 IFSTRIGC 1 >=-lANOWC 1 .CC 1 )^2 )C>BTHENGO 

SUB40B : GOSUB620 : RETURN 

368 IFSTRIGC i 3=-lANDU( ] .CC I )/2 )=BTHENGOS 

UB4B0 : GOSUB540 

330 RETURN 

488 LINEC 16+164*8, 3 1+AC 1 >*16 )-CS4+IB4*B. 

39+A(I>*l6), 1 5. BF,XOR: RETURN 

420 FC15=3:X=1:Y=22:MS=" ft" flt 7 ": 

GOSUB660 : C=2 : GOSUB220 

430 G0SUBe4fl: 1 FFC I >=0THENC=8- 1*4 : GOSUB22 

8 1 M$=SPACE$< 14 ) : G0SUBB6B : RETURN 

440 G0SUB2aB:ST=STRIGCl J: IFST=- 1 ANDWC 1 , C 

C I )/2 ><>aTHENG0SUBG2a: RETURN 

458 1FST=-1 ANDWC I . CC I ).'2 >=8THENMC 1 .CC 1 )/ 

2 >=2 : C=B- 1*4: GOSUB220 : GOSUB63a : FC 1 )=B 

460 RETURN 

488 G0SU8G4a: IFFCl )=aTHENC=e- 1*4: GOSUB22 

a : M$=SPACE$C 14 ) : GOSUB86e : RETURN 

49B C=5:GOSUB22B:GOSUB2a8: IFSTRIGC I ) = -lA 

NDWC I .CC 1 )/2K>8THENG0SUB62a: RETURN 

5BB IFSTRIGC I) = -1ANDWC I . CC n/2 )=aTHENHS= 

SPACESC 12 ) : G0SUB86B : C=B- 1 *4 : G0SUB22B 1 GOS 

U8730:GOSUBB4B:GOSUB52a:L!NEC82+l*76,33+ 

CCI )*8>-C99 + I*7G.49+CCI )*e) .3 .BF: A=USRCB 

):CCI)=2:GOSUB63e:FCI)=a 

510 RETURN 

520 HPCI,CCl)/-2)=HPCl,CCl>/-2)*2: IFHPC I ,C 

Cl>^2)>=MHCl,CCn/2)THENHPCI,CCI)''2)=MHC 

I ,CC I )^2> 

530 T=CC 1)^2 I B=I;G0SUB78B:B=IX0R1: RETURN 

548 T=AC1>:H=B: I FMCB , AC I ) )<>8THENT=MCB , A 

CI)):Hs=lB-8*32:G0SUB7I8:MCB,ACI)) = B 

558 IFHPCB,T)<ITHENG0SUB4aBiRETURN 

56a M$=SPACESC 12 ) : G0SUB66B : GOSUBe30 

57B GOSUB700:ONCC I )''2 + l G0SUB64e . 64B . B3B . 

B3B, 838, 638,838,828: GOSUBB IB: HPCB,T)=HPC 

B,T)-APCI.CCl>--2) 

588 I FHPC B , 2 )< 1 THENG0SUBS7B 

59B IFHPC B , T ) < 1 THENHPCB, T )=0 : GOSUe7a0 : GO 

SUB7G0 : A=USRCa >: FC 1 >=B : RETURN 

608 GOSUB7B0: A=USRCB):GOSUB72B:FC 1 )=B:ON 

CC I )^2+lGOSUB6Ba: RETURN 
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GIB y=VDPi;l9):FORQ=aT0ia:VDPC19)=lNTCRND 

<. 1 J*256 :> : NEXT : VDPC 19 >=V : RETURN 

620 Wtl ,CC 1 )^2)=UC l,C<I>^2J + CUCI . C( 1 J/2 ) 

<>B):FC I )=8:RETURN 

63B COLOR? : ft=USRl C0 > :PRESETC8 + I*ie4. 32+C 

< 1 >*8>: AD=&HC20e+l*a+CC 1 )/2:P0KEAD,PEEKC 

AD+1B):PR1NTH1 , Rl GHTSC STRSCPEEKC flD ) ) , 1 >: 

COLOR15:RETURN 

64.0 lFSTRIGC3i = -lTHENFi: 1 >=a 

650 lF(a=(PEEK(aHFBEB)AN01)3=-lTHENFCa>= 

660 RETURN 

670 PRESETC 72+B*72 .725: PRI NTH 1 . "tlf 4 I " : P 

RESETce6+l*46.6*):PRINTttl , "tr-jft 1 l":FORR=0 

TO? : T=R-. GOSUB760 : GOSUBBSB : GOSUBB IB : A=USR 

C0):NEXT:CLEAR 

eea lFSTRlG(a)=-lTHEN2aELSE68B 

7aa P=CCi:) + I*ie:X=8e+B*64+H:Y=32+ACn*lG 

; R=PC I , C( 1 :>yZ ) : G0SUB74a : RETURN 

7 10 P=T*2+B«lS:X=Q8+B*G4:Y=32+A<l)*ie:R= 

PC B . T ) : G0SUB74a : RETURN 

720 P=T*2+B* 16 : X=72+B*96 : V=32+T* 16 : R=PC B 

, T 5 : G0SUB74a : RETURN 

73a P=2+I*16:X=5G+I*i28:Y=32+CCI>*e:R=PC 

t , 1> 

740 PUTSPRITEP.CX.Y). , R: PUTSPRl TEP+ 1 , CX. 

Y), .R+1 : RETURN 

760 ftD=&HC 1 BB+6*64+T«a : POKEAD .212: POKEAD 
+4,212: A^USRca ) : RETURN 

760 PRESETC24+B*184,40 + T*lS):PRlNTttl ,R1G 
HTSC STRSC HPCB, T) 3 , 2 ) I RETURN 

8ae COLOR? :A=USR2C0 ): PRESETC e + (lX0Rn*I8 
4.32+AC I )*ie): AD=4HC2aa+< IXORl >*G+AC I ):P 

okead.peeki;ad:)+3:PR1nthi .rightscstrscpee 

KtAD)). I ):C0L0R15: RETURN 

828 SOUND? , 7 : PLAY"V 1SL1C2 " : F0RQ=aT03 ISTE 

P 1 : SOUNOG , 0: FORJ=eT05 : NEXT : NEXT : RETURN 

838 SOUND? . 6 : S0UND6 .31: PLAY"V 150 IC 16 . " : F 

ORO=0TO64:NEXT:FORQ=12TO0STEP-1 : SOUNDS , 

: NEXT : RETURN 

840 FOR0=3 1 TO0STEP- 1 : SOUND? . : S0UNO6 .0:3 

OUND 1 . B : SOUND0 , 0*5 : SOUNDS ,16: SOUND 1 3 . : S 

OUND 12.5: SOUND 1 1 . B : NEXT : RETURN 

850 -•••MOJI SUB VW 

860 PRESETC X*8+ I *128,Y*e):PRlNTttl .MS: RET 

URN 

870 '••• BOX SUB ••• 

BB0 FORI=»T02:LINECX+l.Y+iJ-<Xl-l.Yl-l>. 

13+1.B:NEXT:RETURN 

690 DATA la■4^ITl■>.^0,^. a, ¥5^.1 .30.2, ».t) 

1*1 .33. 3. 29. ly-iV- .30, 1,1B,'57<'9- .3B,l 

. I9.1r<9- ,3a, 1 . ia,77l-'9- .3B, I . IB, l--*3"^ 

,BB.4.26 

9ae POKEAHF91F.0:POKES.HF92B. 191;P0KE4HF9 

21.27 







IBB ' DoppB 1 ProgramniBd b>- Ministar 

IBl 'SpBcial thanks to Bitchsoti & KISS 

1B2 '<<KISS : Know!ed9« Information 

IB3 ' Scienc* Scout COsaka Univ.>>> 

110 CLEAR2BB.&HCBaa:0EFlNTA-Z 

120 D=&HDaeB:DEFUSR3=D 

13B PRINT "Wait I " : AS='TEB22Ba5FEe32B0AC92 

AFBF722ieD6C90200EB46235E235B2AieDeEBBE0 

a3E023263FB7E23FE4B3B lBFE503e 1705262AC5B 

76787B74F7E23FE'V0381EFE503B1AEBBFB1C1052 

BB9E£5B1213A9e74F13D3ED531BOB2iae00BS2Ba 

32AA3F622FBF7C9" 

140 B=B:F0Rl=flT096:A=^;ALC"*h"+MlDSCAS, 1* 

2+l,2)):P0KED+I . A: B=B+A: NEXT 

15a IFB<>9?B3THENPR!NT"Error in i3B":END 

16e D=&HCBBa:DEFUSR=D:A=USR9tD) 

17a READAS: IFA$="**'THENA=USR<0J • 

IBB A=USR9CAS): IFATHENPRl NT"Error in"; A: 

ENDELSE17B 

19B 'Data 

2BB DATA"DfH:4DM0L*t->< i stWti.'' jsDM-?»1:lS«DM 

AC». iDN»MtKDM*»DK. eeODMll^SDKVB J!DM's4DK'3^t 

■ 'JDH't*- j«X«7[n1J»7a. l^jevCWCSADMB*. eeWft««t^ 

DM^l♦kOM^♦k j1 18t. < Jet8A30M^♦JyDM'\•DMiDL*♦ 



■7. '?DUir:DmOK3 ■ sf 1 v#» J;»»DMS«i»». AHDNtCDMlJD 
KW,^>. ie*4DK9Je»9GDM".«J l«t. CJBt. DM'seO" 
2 IB DATA"*.0»r«DMt»<bDM. kDM*»DN««/Iiej*«j 
'.^■il'18uDMDDK-J,.»<»»»fePDM3«t<.ttDNtC0E««Jri'J 
DKe.aD0tCOh'JDK*8^kik.ALDNt5DM^DK»B*k»k.>t 
DNtiDMt)DKV*#k»kaDAieDKt»DM*JDK»9D:.. , DNHD 
M9DK*Sit-iDM9DK, TDN*AB< itDEt*DM*>DKk«t«je 
DM34»tt»9kDAiei= ' DNfcTltaDMyDKtjdteDMDC" 
22a DATA"t>DKDM^DHDM''DLDk[DK5J«»tk-l'bDM.*» 
''zDM'" ; DMi" IDM. «*tPDM^♦DMDN□H. nDN*4tf t«DM5D 
K3bDMt-DMtlDKDM'JDK. sDN*AD<U«*.DM'JDKa»mtbDM 
t«DMn«OFAaDM",*>9A«tlDM0DKf «^(f□K■?■f*SGOM^ 
♦jDEDMDDK#DAlShDMDDKyDM3DJDM6DHDM0DKf*~» 
-wfcDMt»<i>DNDM . DH. )DNDM ■ DJeDM ]DGDX> " 
23a DATA"DMSDYDMMDFu'-ftiDNDMiDDHaOM! DJeDM 
SDHDXDM-l'yDMDMiDDHaDM ! 0JbDM5DH3X0MDFCK*DN 
DMeDDHa3cOM-CXJ«- DM ! DJDM5DHDXDM. ♦DN"*? J~« 
-*. i.DN1:»< ft. /DMt*aFeDM8DDHDM6DH. ♦♦^ZDht^T 
aDMtO. CX)NOM J DK7DM )DKflADFue> j 1 Sr tO. uOMDM 1 Q 
K*i J le/tCli GOQMDM}DKDFCft j IBw. GOGO"" J:DNc " 
24B DATA'T l8DNDMDNDHDM)DK;^mtcDMt». .tDNafeS 
~Of TDM }DK. G0DM~*7i''»-»« CONt»< •« uDMt^iSFe. 
= AFPDMaOL. «*tODM^♦mt•DM. sDM»0N~TR&DDft!D'5'5 
s»TDN9ft<D0•••m8kDM^DJDaDM~O1■eDM^DJDCBFDC 
. 0»rgDMDgDM9GBG8G8GeGDF-i. ♦SDM'S«0Mi>DLJ9iD 
MftDLodDM>YbStG0~»ft~«jeW«»39DMe9~»-" 
250 DATA■■J9•^~G0J9♦tCJ1■9DM<DAt0DM^♦IsDM»z 
DM90N~tDB9FDC. ^OODM ! DJOMyDJOC-sDCmtsOMDeO 
M9DJAMDD««*iDM9ON~TRAMDDftin'^'5 9<WDN5»/D0»» 
♦mBkDM!DJDM!DJDeDMVaf*tGO<dDMDM]DGieDM«i 
DM9 3XDMj!DYDM»99Fi.gDM«0DMsAF-»/<¥DMDMDLD 
i D¥DM?DJ1tDDDMaDKf «OJttDDfnt«DM. uDMsONe. " 
26B DATA"~*J9i>i9DM*jDNtftntgDM. GODMiON~»J 
8iiieDMftiDNltti9DM»zDM90Nk.*DM9Fi.>3XDM-l']DMl 
XDMJ!DYDMA9-f ♦tGOTYDMDMDNDHmtgDM. zDMsON. CD 
N»>R8DDdYDM7DB4D0. L-DODM !DJ. tDODM ! DJ3»DMV 
O<«G0<dDMDMJDG. lDMj;»riXDM>J8*.t«3YDM>J8»5 
9G9G9A7«~»~»<¥DMDMDL0!DCeDD.tD0DM!X" 
27a 0ATA-DJDM3DJDM6DH. 8DMI0N-«ZsDBJi«0C«D 
Bi9DM*zDMIt*T. aDM^DMDNDHDM6DHigDMI'>'5T)ltliTD 
Nlt»i»D0'»«4m8kDM!DJ3aDM~#26DE39Dri. cDM>DJ6D 
E.0NDODM!DJi9DMmQeDM7m;<kiBDM«jDM9tC»»«uO 
Nir&*mj(q7.JeuieDM*zDMIT»tieDM5'3-r.-»'amDbOMtr«f* 
3<lfexDM^«eDM<YDMD*DM0KVDN»<XDMDM"i-" 
2BB DATA"DID9DM<YDM3»DMDKV1'XDMDM''DIDMDND 
HDeDM~0?*DMftDHDM:'DJ.AFPDMBDL3eDM.cDM>J9T 
DcDMmtgDMtCZki iDN> JS^Cj 19i'39DM<cDM»jDNigDM 
*ki«DM*0Ni.>DgDM"'CCL9DDHDMVDJDC&DD3cDM.«DM 
> □ J ?DF. ACDODM ! D J. ♦•OMBOLDMDOKX jbDM=5#ft3 < It 
kieDM-5'5-S'S'5ltt9DDM'\»igDM-3^'5T3il-t9EDM'lJe" 
290 DATA-ttWDM.bDMBFl-XDMDgDM-CYDMDM'DlDaD 
M-OTT. YDMli«]aDM > t*J8«»fXDM«DM- D I aI0N-»7 
hDMAJDlDeDM~C0LtDJ39DM~CDL7DJDC+DF. I DOOM 
!DJ.««DMBDLDMDDKJ3bDM. ¥DMeF<XDM39DMl'YDMD 
M°DIt»rXDMibDM^«*3<ltk. YDM*»3cDM>tBEJe«tk 
DM'^♦¥J9♦9k•UDM'DI0aION~•7«OMAJDIDe^" 
3Ba DATA'^DM-O^tOM^JDJ < ♦DMJiDJDMnDLJSt /fcDM 
DMftDHDMe.DH.bDMxDMDNDHDMTDl.»«DMBDLDM?DJ3 
bDM~»ZaDA^l'^DMi.^DM^**»DNO-''iDM*jZai=?»t<*lDM 
lTkti^»5»lDM»;-f99.(«C9G-i:<.:->-<0-'"<l^i«C>-<0- 
<<uiiDMONj>-JiiDMZj«*»ttGO<''DM. -^DMION-O? 
tt«*«b 9DN«DE3IIDKdDK«. SE<ir)^4D0ktDFA9DD" 
31B DflTA"6t«DMTOKkaB0DKyDKT»- <»~»?O»lG0i 
«»kDMttDKDAaj leOH. ?DO*x;t^>DM'JDK,> DEDOfciKlt 
*DM9DK.DGD0*M«*DM'JDK.9D0»SC6«DM'JDKUisDM 
OM&DKQDM-JDK. AM< fi-DM'S*. ClD0*99t*iiDMt)DK= <i» 
**tPDM3«k .-(CIMi^tPDMa*. YD0*.4tftnDM'JDKDMaDJD 
Mi'DLDB«D9° 8B»ti'DM»«-iDM^«j I9vDMDDK4U'' 
32B DATA'-CaDMLDJ^i- i DMt JBT ' DM. T^DM )DK<XDM 
DF0B□M^MiDM7Je'(>JDM)DK■fYDM0FD8DM'^4»dDMDM 
l1DL65f-^. •DM6&DM'DH. ■ DMD , I 7-f ♦»G0IJ9D9/<dD 
MDCJ!D J. CZt J9DM'>*t»l' i DM<Xt*e#DMAC« ' DMf** 
=(f-)1''»DHDMaDK*DlDCpDJ^<.-DN<yDM-C*DN3i>DN*-0 
M*lDK»9HlDM9DKDyDM*-DM*lDK»9N;DMt)DKD«" 
33B DATA-^ONt-DMllDKH.iDMlJDK.aDODcDM-O?*^ 
i<DN7 V ♦. gDOMnZ»DM<^DKDMDDK;tD 1 CVkBHC . zDMDE 
sONtDBDMftDKDM'JDK. 0N4BkaDA'J-«J9»*<;j 19ct» 
.oD0*zDMDEWC*C""r7»«.ittj*jjj-)DAi8j.mD0ftCft 
tXDMf DKDI . OS»*»^DC3««ft*< . kDMDEeU^ j3kDM& 
DK0DM*tDKoi«tkaDA'J~«O9*»21jjl9_i2DMQ" 
34a DATA"DM&DKj«ft5;DM9DKDlDXDM?DHDMLDJDX 
DMSiYDM'?»5*kDMlTtG0:^>J8»jt*«DEiZDMj'"ZDMt-» 
C4DMAC«OM»DlDMDDK-^0AaI9»DlDMUDJiBDM->*kDM 
ltIJ9*jI»oiZDM»'"ZDMt*K*D«AC«OMTDIDMDDKti2 
DM^4aJ9¥DCVDJt*tt*DMAC♦D*DM7■f♦6♦yf-DJt^DM 
l>DJUDKT-fxTDMODJ%7J8xD¥DMt-DMftDK0N-A9" 
3Ba DATA"je-f»faJ9jOj»t*»*PmBkjDMIDJDie*D 
MAC»DMaDK*Dlt*tt^DMAC^:Jlt*DMAC*t»DMAC^Li1i«D 
MAC«fcC6DMAC»t J tt [ 8DCAC«DMnDKL'D I DMDOKL-D 1 . 
•P<*. SP<M. JP<»=tllPDMBDLiAJDM»ACP7n!;^J9uDlD 
8DM~*^jDM0DK~Jl-*3eDMl'gDMDtDM0DKf»l'9DM~»- 
t>,eDM>-.n*=3»*zDM»0N~TYbDIONj~- J9«M7" 
36a DATA"aOK*DI~'"J9*»DMpQJa< j~jJe»oDMtOK 



a<_e5ma!DM«8G9BflG9G8C'!r4.CDM»CDM-DK. ! DMI 
0N-<.DLtOKD+l7J8COMnDKCla<l.»»r ! DM. WDMe*** 
*DKDMm8a»<*fnB<::. ! DM0N7DH*»jI0N"'*X*<. 4DM*< 
DMW- •mB. CDM*A6ltt«DMt)DK»211DMttDK*RltDC'JDK3* 
♦7(iVDKrsmlUi.*m3lDK2k-7DFG0Vt*DKia9kf 
370 DATA"fDlc;jcDANI88SDANiBJB2DIeit»DMm° 
9E9D*«l'"ttDMoDli■^•8.DM*GOIVi^-^JOF*&V9FS«y8F 
^ ! J9*»J9f-'~'it7*'JDF5&j6*e4DlDKflje'v*t»t-j-J?m 
>-jlIk.xDM~D-'?e.%»G0-DMti0K>rC»N~-D9JlJej0N» 

-D8jJ)JB»Dlk.»*7m>!07i-(-*tTt-DMftDKOtiDlt'^6 
j&j*.*»t«OlDMODKf«~«-wyDUDMX*ut«OMP" 
390 DATA"X«ABOI^DMU*jt*DMU*DABDIDMODKf» 
'■t-w.tDLeE*^3DN•tlONu=CJ9DM^♦5^*¥^f^n->. ♦SD 
C"i4t> fL ] DAOb. AO 1 fcUDM— tiiiB. »DM»AO }1Hliiie C D I 
■" AJDMfKALDM. ONDMt»tO" jDMAC^ I SxD! 3AKDM7 
DJ»DM. ALDM*DB»DMDM'*DM~i;-?«~*7T<-~P-f. ~q<o~ 
rJ8gDM*DM"DM'»DM5m?AJDM<YDM90M3DM*DMU" 
39B DATA'"''JDMAC'KDKDM4DM<A0DM<DC^i'ANDM"e 
^>DMftC«JLDMAC»<-3fo<AMDM<+u-F»30q^^fi:tr4''.eB 
DMU' j3k^DKyDKTI9zJ*m(V>DMAC^7DMAC»3AMDM 
i'ANDM'1:L.DMAC*tatiSiJt»79tCt'DMAC»'5DMAC*DAN 
DMy**tifcDMAC«AODMi- DMDM»DM1'ALDMC j. DM*J8 
TDA0DM6.ANDM0N7vliit- tnDMAC«ONV»?t° tAC" 
400 DATft"ii;DMAC**»**> O C8BDLDlDI xAJDMONj^fl 
JDMDIB**«>><*ALt>9«>y»AKt«x^»kL'i;<.ir*99«tX*>**** 

8 J e J 9 J 8 J 9 J S J 9 J J 9 J S J 8 J 8«*****««** 



410 DATA" lit '?lJ9J9J8J9jaj9jeja»»»«»WC9~^ 
•JV0OGOs«-jT*l&n¥B*'De98*««8DeD«WW*ltyV»»r.»i¥ 
W*G0'-;*«ae9BA8x ; 8889' p8ee8De~'>«*'G000oL7J: 
ft:b1JiLx»♦C^G0♦9^':3"xD8D9DB□BCVQJt♦tJ8t^3J8 
DeJ8JeJ8J9f».'3DT — J9»53J9-J8ffDJ8-je?»/3 
J8J8 JBt-S] J9D8J9K;3 J9-je3T — jeJ8J9J8 . " 
420 DATA"T?f-r?-57-Ill2fciDta3J8Je?»y53JB->71* 
l-7-r'?l^fl*7'r-'"*?J88FJ9AGroflM!. jffJ98FJ9AGr 
oAM!. jh-J99FJ9AGroAM!. j ISjeeFJBAGroAM ! - j 
J9J9J9J8J9iJ8AJACAl'-AG- jALlc"oAM!. jJ9J8J 
9J8je«FJeANry=- j'"r9JAL^j. jAKwf JSANryo - j 
vACAM9FJSpcAB' !~ jJ8J9JeJ9J8 J J9AL } ' <" 
43a DATA""!. jALAFALJ8tS;**aJ. jc^jeAFBO ' . • j 
iU»A«*J8 ■ -^80 ' o . jtl**aJ.J9AF" jABAGi AJ80' . - 
J8j"}J8t?7XrDJ9J9J®J9JBJaJ9J9PPPPPPPPPP-) 
^>'>'>ppppU«^&J8t&'#JBJ9JaJ9JBJetX»4'SJ■S'J««=>"J 
««>^'J«*>&'J«»A0C««JBjeJ8> XpOiJaDtzCtoipK^J 
9*9rAAPSpC»J8l-u- i.*..0.'-m.w u.^La^rOJO)" 
44B DATA"0:J007007C*>trJ9rAAPIpO»i'1i'*vi1o 
jL.ii<*,.-JiiJtvi*nJtvi*i>»o*i^rAAPj;p»*ja»t'ii.»k1ifc*t 
■Jk**1*9k»tj*-5*.*JU*Pt«ftrAAP*»rAAPBpO»LftL» 
LfcLW-fcL^LfcLriL. L-}L. L'»L. L^L. L»i*J:»i*Ji¥j:**» 
itri-^tt i-itt J? J> 2? J* t'$i.t>tVi.1ht'$it>ift*>*'i*' *•} 
*>g «->«>. «■?(» *)?«• ft^Bo s-vKo A^ft. krSPf^" 
45B DATA ** 




WARINTHEWALL 



10 ■ yatt-jT-r 

20 SCREEN), 1:COLOR13. 1 , 1 : KEYOFF: UIDTH32 : 
CLEAR12aa:DEFlNTA-Z:A=RNDC-TlME):DlMM$C3 
0>.A<15J,B<15),CC 15>, !C 1S).J<:15),PC 15>,X 

C 15). YC 15> 

3a COLOR=C 13,8,0. 03: LOCATEl 1.8 :PR1NT"-PR 
OGRAM-": LOCATE U, IB : PRt NT"M. TAKUSARl" 
40 L0CATE12, 1 3 l PR 1 NT"-MUSIC-" ; LOCATE I 2 , 1 
5:PR1NT"K. 1 TOH": FORI =BTO7;C0LOR=C 13,2, 1. 

2 J : FORC=aTO50 : NEXTC , I 

50 FOR!=0TO35:READA:FORJ=0TO7;READAS:VPO 

KEBASEC? >+A*a+J . VALC "&H"+A$) : NEXTJ , I 

SB F0Rl=aT01B:READA.B:WPOKEA.B:NEXT 

?e RESTORE 159a : F0RA=BT0 1 : FOR 1 = 1 +A*5T05+A 

*5 : READB: A$=" " : FORJ=BT07 : READBS: A$=A$+CH 

RSC VALC "»H"+B$ > > : NEXT 

50 SPR!TESC1)=AS:NEXT:REST0RE1G58;NEXT:A 

$=" " : FORI =BT07 : A$=A$+CHRS<255 ) : NEXT : SPR 1 

TESCa)=AS:SPRITESCl 1 )="f B"+CHR$C B )+CHRS< 

a)t"B*" 

98 RESTORE I79a: FOR i=aTO 13 :REAOACn: NEXT: 

FORI=1T05:READKCI ).MC I ),NC 1 ) : NExT : LCB >=B 
:LCl>=0:FORl=aTOl3:A=A':i):B<I)=KCA)lJCI ) 

=nca:>:next 

100 f0r1=1t05:readdc i > . eci j , fc i ) . gc i > . hc 

i ): next: for 1=bt0i3: ko=96:next 

lie F0RI=lT05lREADASC I ):N£XT 

128 FORI=7TO0STEP-1:COLOR=C13,B. I , B ) : FOR 

C=aTO50 : NEXTC . I : CLS: C0LOR=C 13.2,7,2) 

130 ■ 9<hJlf.^V 

14B L0CATEB.4:PRINT"- WAR IN THE WALL -" 



108 



:L0CflTE8,9:PRINT"iT5T5-^Tt.-)-.T.n-;'5Jf" 
150 F0Bl = iaTOie:LOCiaTEB, 1 : PR INT"-* 

-f " : NEXT: LOCATES , 13 -.PRim'' ■f>->-3->nnn'^ 
T5-5-5^i"i LOCATES, ll:PRINT■■3■^5■^■^■^■^■5■^^•5->5■^■y 

ISB LOCATES, !2 : PRINT"tf*-" : LOCATES . 13:PR 

lNT"»t*-":LOCATE10. 1*:PR1NT"' -'^LOCATEl 
B, 15:PRlNT"h -" 

na LOCATEIO, 1G:PRINT"P -": LOCATE 10 , 17 : P 
RIHT"z -":LOCATE10, 18:PR1NT".. -" 

IB0 ONSTRlGGOSUB2aai.290:STRIG(0>ONTSTRlG 
<l)ON:LOCATE6.21:PRINT''PUSH CSPC) OR CTR 
G)'" 

190 FORl = lT05lFORJ=BT01 le : PUTSPR ITEB . t J , 
5B>. 15. I:NEXT;G0SUB139B 

2BB L0CATE13, 1 : PRI NTSPCO 5 : LOCATE 1 3 , 10: 
PRINTASCl J:L0CATE1'1-. 12 : PR INTSTRl NGSC NC 1 :. 

, ■■•");SPCCB-NC 1 >):L0CATE14. I 3 : PRI NTSTR I N 
GSCMC I J, "♦■'); SPCCe-Mt ! )> 

2 10 A=Dt 1 ):L0CATE14. 14; IFA=9THENPR1 NT"X" 
; SPCC7 JELSEPRINTSTRlNGStA. "♦" > ; SPCCe~A:> 
22a A=ECI ):L0CATE14. 15: 1FA=9THENPRI NT"X" 
:SPCC7)ELSEPRiNTSTRlNG$CA,"*"):SPCCB-A> 
230 A=F<I ):L0CATE14, 16: IFA=9THENPR 1 NT^'X" 
:SPCC7:iELSEPRINTSTRiNGSCA. "♦" ) : SPC(8-A) 
24B A=G( I i:L0CATE14. 17: IFA=9THENPR1NT"X" 
; SPC(7 JELSEPB INTSTRI NGSC A. ■■♦" J ; SPCC B-A ) 
250 A=HC n:L0CATE14. IB: IFA=9THENPRINT"X" 
; SPCt 7 JELSEPRINTSTRINGSCA, •'♦" ) ; SPCC3-A> 
260 FORC=0TO30BO:NEXT 

270 F0RJ=1 ieTO250:PUTSPR!TEe, C J. 50). 15. I 

: NEXT :PUTSPR1TEB. (81.209): NEXT: FORC=0TO6a 

00;NEXT:GOTO190 

280 Z=0:RETURN30a 

290 2=1 :RETURN3O0 

300 STR1G(0)OFF:STRIGC 1 )OFF : PUTSPRl TEB . ( 

e.209>:SETBEEP! , I :BEEP: PLAY"'J15T255LB404 

CE":CLS 

3 10 ■ 7v7°tl7t1' 

328 FOR1=1T019:LOCATE2. I : PRINTSTRINGIC28 

."■"): NEXT 

330 FORI=BT025:LOCATERNDC1)*27+2.RND(1)* 

18+l:PRlNT"i.-":NEXT 

340 A=3:B=RNDC 1 )*3+10 : C=RNDC 1 )*9+2:F0RJ= 

aT09:L0CATEB. J+C:PRINTSTR1NGS<:a,"x") 

3 50 IF J < 1 THErJA=3ELSE I F J <3THENA=4ELSE I F J < 

5THENA=5ELSE 1 F J <7THENA=4ELSEA=3 

3GB B=B+RNDC 1 5*3-1 :NEXT: F0Rl=aTOl : A=l :B= 

RNDC 1 )*7-t-(I«7+8>:C=RND<l)*l 1 +2 : FORJ=0TO7 

378 LOCATES. J+C : PR 1 TJTSTRl MG$C A , "p " ) : B=B+ 

RNDC 1 )*3-l : IFJ>4THENA=A-1ELSEIFJ<2THENA= 

A+1ELSEA=3 

3B0 NEXTJ, I 

39B A=15:FOR1=IT019:LOCATEA. 1 : IFI=50R!=1 

aORl = 15THENPRlNT"IH!."ELSEPRINT"hh" 

480 A=A+RNDC l)*3-l:NEXT 

410 L0CATE2, 10 : PR INT"ft" : L0CATE2S . 10:PRIN 

T"ft":X(B)=5:Y<0>=13:XC7>=32:Y(7>=l3 

420 FORI=BT01:FORJ=I*7+1T01*7+B 

43a XCJ>=RNDC 1 )*B+5+1*2BiYi:J)=RNDC 1 )*19 + 

4: lFyPEEKC&HlB00 + X(J>-3 + <YCJ)-3)*32K>S6 

THEN43B 

440 LOCATEXC J >-3 , YC J )-3 : PRINTCHRSC At J ) + 2 

23+I*8):NEXTJ. I 

450 LOCATE 1 , :PRINT"i"STRING$C28 , ■•■5")"«" 

:FORI = 1T021 : LOCATE 1 , I ; PRI NT"v " ; LOCATE30 , 

I : PRI NT ■'-*■■: NEXT :L0CATE1; PRI NT'>"STR!NG$< 

2B."'5")"a":LOCATE1.2e:PRINT"3"STRINGSC2a 

4B0 L0CATE3.21:PRINT"3/MAP?-3Dyi-?-3l3?" 

470 IFCZ=fflANDINKEYS=CHRS< 13 ) )ORC Z= 1 ANDST 

RIG(3 3 >THENCLS: PLAY"GC" : GOTO320ELSE 1FCZ = 

aANDSTRIGCmOR<Z=lANDSTRIG(l ) )THENELSE4 

70 

48a PLAY"CG":L0CATE3,21 : PR INT "-Jir 57- ^^fC 

■9' tS-f . " 

490 FORC=0TO8BB : NEXT : A$=" " : FORI =BT01 : AS= 

AS+"CR16R4CRieCR16CRlS":NEXT 

5BB PS="','15T180L4O5CEGO6C2.O2LlG":N$=A$t 

■'CRB.C":0$=A$+"CR8.C":PLAYPS, "VIBTISBLIB 

Ol":PLAyNS.0S:PLAY"yi5T255Le404" 

5ia FOR!=0TO2B:MSC 1 >=STRI NGSC 38 . "q"):NEX 

T 

52 8 F0BI = 1T019:M$( !+3 ) = "<iqqq " : F0RJ=2TO29 

:A=VPEEKC&H18BB+J+I*32):MSCI+3)=M$C I+3)+ 

CHR$CA):NEXT:MSC I+3)=MSC 1 +3 ) + "qqq-5 " : NEXT 

530 ■ T~-L±' M'J CsOV 

540 CLS:X=1B:Y=1B:L0CATEB. 1:PRINT"- WAR 

IN THE WALL -" 

55 B L0CATE2,3:PRINT"i-;-5-3'5'5'3»"SPC< I 1 )"i'3-5 

Tfyst" 

580 F0RI=4TO21:LOCATe2, I:PRINT"-< ■*-* 

"SPCC9)"-*-f -f "jNEXT 



57a L0CATE2:PRINT"l>'5'5'5nT)a"SPCiC 1 1 ->"i-i'yr-n 
T5a" 

588 L0CATEl«,4:PRINT"i:-5^5-5-5-5'5'5r.t":LOCATE 

10,6:PRINT"3-)-5T3?5n'5'5v" 

590 FORI = 16TO20STEP2:LOCATEia. I iPRINT"3-5 

„„,,„-,". fjExT: LOCATE! 0.22: PR[NT"i-m ■5-5 

800 ■ *f5 t^9-7 

GIB DEFUSR=342 : W=USRC0 ) : FORE=0TO1 : D=E*7 : 
FORI=E*7TOE*7+8:PC I )=B : CC I )=MCA< I >):NEXT 
628 yPOKE8 28B , 24B-4*E: LOCATEl 2 , 5 : PRINTUS 

:ng"player«":e+i 
b3b play'xe" 

64a PUTSPRITEO, <a , 2a9 ) : li=B : GOSUB 1330 

S50 lFPi;D)=0THENA=!5ELSEA=I 

6G0 PUTSPRITEa, C 1 IS . 85 ) . A . 1 1 : GOSUB 135B 

670 S=STICKCE+Z):V=0: IPSO 1ANDS05THEN7B 



680 1FS=1TH£ND=D-1: IFD<E*7THEND=V: G0T067 

BELSElFX(D>=0THENBBBELSE63a 

6ga [FS=5THEND=D+l : IFD>E*7+6THEND=y: GOTO 

670ELSEIFX(D>=BTHEN69OELSE63B 

7BB IFSTRiGCE+2)ANDPCDi=BTHENK=XCD):L=YC 

D) : PLAVCG" I FOR I =eT09aB : NEXTELSE67a 

710 ■ tt.5 -C^--! 

728 IFSTRIG(E+2)THENB40ELSEIFE=eTHENIF(Z 

=aAND 1 NKEYS=CHR$C 13 > JORt 2= 1 ANDSTRI G<3 ) )T 

HENPLAY"GC":CCD)=MCACD)):GOTOe40 

730 IFE=1ANDSTRIGC3+Z)THENPLAY"GC":CCD)= 

MCA<O)):GOTO640 

740 IFM=2THEN720 

750 S=ST1CKCE+Z): IFS= 10RS=30RS=50RS=7THE 

NF=15-CS=3) + CS=7):G=11-CS=5) + CS=1):B=C<:D 

>ELSE72B 

768 A=yPEEK(&Hie00+F+G*32) 

770 IFA=9G0RA=145THENB=B-DCACD))ELSEIFA= 

104THENB=B-ECAi:D))ELSElFA=! 12THENB=B-FC A 

CD))ELSE790 

7B0 GOTOBOO 

790 IFA=I20THENB=B-G<ACD)>ELSEIFA=136THE 

NB=B-H(ACD))ELSElFA=113THENB=B-SELS£B!a 

800 lFB<BTHENM=0:GOT072eELSEPLAY"C":CCD> 

=B: GOSUB 138B:K=K-CS=3) + CS=7):L=L-CS=5) + <: 

S=l ): GOSUB 134a: IFM=1THENM=2 :GOTO720ELSE7 

2B 

BIB N=K-CS=3)t<S=7):0=L-<S=5)+CS=l) 

S2B FORI=7-E*7T013-E*7: IFN=XC 1 )ANDO=Y( I ) 

THENA=1( n:M=l:G0TO77aELS£NEXT:F0RI=E*7T 

0E*7+G: !FN=Xi: 1 )ANDO=YC I >THENA=K I ) : G0T07 

7aELSENEXT 

830 ' tf.5 ta-Jy- 

840 PLAY'XG": lFD=E*7THEN9ea 

85a IFX<0)=KANDYC0)=LTHENS5a 

B6B C=KO): IFM=2THENICD)=AELSEFORI=E«7TO 

E*7+6: IFK=XCI>ANDL=Y<l)THENICD) = KI):M=3 

ELSENEXT: I C D )=ASC<:MIDS<nS(L) , K . 1)) 

870 N=XCD>:0=YCD):XCD)=K:Y':D)=L: IFK=XCE* 

7)ANDL=YCE*7)THENB':D)=K<ACD)):GOSUB13eO 

880 A=0:B=e:FORI=E*7TOE*7+6: IFX< I )=NANDY 

(I)=0THENA=A+1:C=I : NEXTELSENEXT 

890 F0RI=7-E*7TO13-E*7: IFXC I )=NANDY< 1 >=0 

THENB=B+ 1 : C= I : NEXTELSENEXT 

300 IFi:A>OANDB>0)ORA>lTHEN34a 

9 1 IFA= 1 THENC=ACC >+223+E*8ELSE I FB= I THEN 

C=ACC)+223+B-E*B 

920 IFB> lTHENC=229+8-E*8 

930 MID$(MSCO).N)=CHRS<C) 

940 IFM=2THENMlDSCMSCL).K) = "yELSElFM=3T 

HENn!D$CMS<L).K>=CHR$(229+E*B)ELSEMIDSCM 

$CL).K) = CHR$i;ACD)+223+E*8) 

350 GOSUB1340:PCD)=1:GOTO64O 

360 F0RP=E*7+6T0E*7STEP- I : R=0 : F0RQ=1 3-E* 

7T07-E*7STEP-1: ! FXC P )=0ORR>0ORXC P ) OXCQ) 

ORYC P ) < >Y< Q )THENNEXTQ. P , E : GOTOG 10 

970 ■ t^t-T 

980 K=XCP):L=YCP>:R=l : W=8: GOSUB 1340 :0=P: 

GOSUB! 350 

990 F0RI=lTOBCP):A=ACP)+E*5:PUTSPRITEI . C 

4e+E*152, 1*18+14). 15.A:PLAY"C":FORC=BT01 

BB:NEXTC. I 

IBBB FORl=lTOBCO):B=AC0 3+5-E*5:PUTSPRITE 

1+9, ( 192-E*!52, 1*18 + 14). ! 5 , B : PLAY"C" : FOR 

C=BTO!aa:NEXTC, 1 

IB IB FORI = 1TOB(P):PUTSPR1TE1 , C5B+E*132. I 

*!B+14). 15, A:G0SUB139B:FOBC=aTO2aa:NEXT 

18 28 PUTSPRITEI , C40+E*152, I *18 + ! 4 ) . I 5 , A: 

FORC=BTO200:NEXT 

1030 1FINTc;RND<1)*<:9-JCP)))>0THEN1 128 

1048 G0SUB13BB:T=192-E*152:U=R*IB+14 

1858 PUTSPRITER+9.CT.U). 15.B:U=U-5: IFE=B 

THENT=T+SELSET=T-5 

IBBB IFT>-16ANDT<256THENia5B 

1878 PUTSPRlTER+9, CB ,209 ) :BCQ)=BCQ>-i :R= 



R+1 

18BB IFB':0)>BTHEN112aELSEK=XCP>:L=YCP):X 

CO )=a ; YC Q )=0 : A=0 : B=e : F0RJ=E*7T0E*7+S : IFK 

~X( J )ANDL=YC J )THENA=A+ 1 : NEXTELSENEXT 

1098 FORJ=7-E*7T013-E*7: IFK=XC J )ANDL=YC J 

)THENB=B+ I : NEXTELSENEXT 

IIBB IFB>0THENC=246ELSE1FA>1THENC=229+E* 

8ELSE I FA= 1 THENC=A<; P )+2 2 3 +E*B 

1 IIB (1ID$CMSCL>.K)=CHRSCC):G0SUB134B: 1=B 

CP>: 1FQ=OORQ=7THENU=1ELSELCE)=LCE)+1: I FL 

CE)=6THENW=1 

I 128 NEXT I :FORC=aTO300:NEXT:FORI = lTOZ0:P 

UTSPRITE1,C8.2B9):NEXTI:BEEP:PLAY"V15T25 

5L6404": IFW=aTHENNEXTO, P . E: GOT06 10 

113B ■ T'-Lrji-' 

I I4B PUTSPRITEB, (8 , 289 > : FORI =aT023 : LOCAT 

Ea , 23 : PR INT : NEXT : FORC=0TO18BB : NEXT 

1 150 CS='"<ltlTit< <ltltC ( <lTltlt< <ltlt< < <itiTa-< <irii< < < 

lf:OS="<pp<p<<pp<p<<pp<p<<pp<p<<pp":ES=" 

■»■■■■■* 9 J ..... ., 

1 160 F0RI=BT05: PUTSPRITEI , C32+E*176, 1*16 

+31>, 1 ,0:NEXT:FORI = 1TO2:FORJ=0TO5:PUTSPB 

ITEJ+I*G,C 192-192*E+I*16.J*1B+31), 1 , : NE 

XTJ , 1 : FORCSBTO5O0 : NEXT 

1178 FOR1=4T07:LOCATE6, I : PRI NTSTR INGSC 20 

,■'<"): NEXT : L0CATE6 : PR 1 NTM 1 DSC □$ , B~E*7 , 28 

):LOCATEB:PRINTSTRlNGa<20, "p") 

1 ISB FORI=18TO15:L0CATEG, I : PR! NTSTR INGSC 

20, "■"):NEXT:B=212-182*E:C=32+E*176: IFE= 

0THENA=-1ELSEA=1 

1 198 F0RI=B-E*7T01+E*7STEPA:LOCATEG,5:PR 

INTMIDSCCS. I .28) 

1208 FORJ=6-E«5T0I+E*5STEPA: L0CATE6 . B : PR 

INTMIDSCDS, J,2a>:L0CATEB, 1 I : PR INTM IDSCES 

.3+2.28) 

1218 L0CATE6, 1 4 : PR 1 NTM I DSCES , J , 28 ) 

1220 B=B+A*2: IFXCE*7+6)>8THENPUTSPR1TE1B 

.tS-A*5.48). IS, 1B-E*5 

1230 IFXCE*7+5 )>BTHENPUTSPR!TE19 , CB , 73 ) , 

15,9-E*5 

1248 IFXCE*7+4)>0ORXCE*7+3)>BTHENPUTSPRI 

TE28. (B-A* I 8, 88), !5,B-E*5 

1250 IFXi:E*7 + 2)>80RXCE«7 + 1 ) >0THENPUTSPR 1 

TE21 ,CB-A*2. 104). I5.7-E*5 

12 68 I F I = I +E*7THENC=C-B*A : PUTSPR i TE9 . CC . 

73), 15. 1+E*5 

1270 NEXTJ, I :COL0R=C 13 , , 8 , ): LOCATES , 18 

:PRINT"- PLAYER";E+I ; "U!N -": FORI=eT07 : C 

0LOR=':i3,2, I,2):F0RC=aT058:NExTC. I 

1280 NS="T88LBV1404F4FlG.C32A4.F4Fie.C32 

B-4AG4E03B-4Gfl4" 

1 298 0S="T88LB'; I 303A04C03B-ARBGA04C03B-A 

04R8C03G04DC03B-RBGA04C03B-ARBGA2" 

1388 Pa="T88LBV1303FAGFR8CFAGFR8ACB-AGR8 

CFAGFRBCF2" : PLAYNS , 0$, PS 

1318 IFPLAYCB5=BANDCSTR1G(B)0RSTRIGC1)>T 

HENRUNELSEI318 

1328 • tJTtt-f> 

1330 K=XCDJ:L=YCD) 

1340 FORI=8T0B:L0CATE11.7+l:PRINTMIDSCM$ 

C L-4+ 1 ) , K-4 , S ) : NEXT : RETURN 

1350 H=CCD) 

1360 LOCATEIZ, 17:PR1NTUSING"& »";ASC 

ACD)> 

1378 LOCATEl 1, 1 9 : PR 1 NTSTRI NGSC B< D> , "•" ) ; 

STR1NGS<KCACD>)-BCD)."- " ) ; SPCC g-KC ACD) ) ) 

13BB LOCATEl 1,21 : PRI NTSTR INGSC CC □) . "♦" ) ; 

STRINGSCMCACD)>-CCD), " ■ " ) ; SPCC9~MC AC D ) ) J 

: RETURN 

I33B SOUND6.38:SOUND7.23:SOUND8. 1 6 : SOUND 

12.58: SOUND 13.8: RETURN 

1480 ' 7-Jl'*i-7i f'-9 

1410 DATASe . FF . BF . F7 , FF , FF . DF, FD , FF 
142B DAT A 1B4, 00. 56. 80. 9 A, 00. 74, 08. 33 
1438 DATAl 12 . 1 B . 3C . 74. 7A, 76 , FB , F5 , FF 
1*440 DATAl 13,37.77,77,0a,SD.DO,D9,00 
1 458 DATAl 20 , FF , BF, F7 , FF , FF . DF . FD, FF 
1460 DATAl 3B, 1 8 . 30. 34 , 7A , GE . 3C, 1 8 . 3C 
1470 DATA 137. 88. 00, 20. 1 . 5S , 28 , 30 , 00 
14B8 DATA145.FF, AA, AA,AA,AA. AA, AA.FF 
1438 DATA 152. 00, 00. 00. 80. 00, 00. 08. 00 
1580 DATA 15 3. 08. 7C.D6.AS.D7.ee. 7 8,00 
1510 DATA 168, 18, 18, IB. 18. 18, 18, IB, 18 
15 20 DAT A 1 69, 88.00, 80. FF.FF, 00, 00, 00 
1538 DAT A 178, 08, a 0.88, IF, IF. IB. 18, 18 
1548 DATAI7 1,0B.80,88,FB,FB. IB. 18, 18 
155B DATA 172. 1 B . 18 . 18 , 1 F , I F . 88 , BB , 00 
1568 DATA 173, IB, 18. 18 , FB , FB , 88 , 08 , 80 
1576 DATA 174. IB. 18, IB. IF. IF, 18, 18, 18 
15 BO DATA 175. 18 . 1 8 , 1 8 . FB , F8 . IB . 18 . 18 
1590 DATA224.04.OE, 1 C . 78 . 70 . 20 . 7E , E7 
1600 DATA225.38,3C,96.7F,BC, 1B.3E.BZ 
1610 DATA22e,O0,3B,7F.78.FE, AB.54.00 
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lG2e DATA227,Be,ige,7E.GB,Fe.7E,EF,fl0 

1630 □ATa22a.iaa.ce,6e,Fe.7F.ce,eig.a0 

1640 DATA223. Ill . 1C.3E, 3C. 4C,4IB ,60, BB 
1G5B DATA232, 20,70,35. IE, 0E , 04 , 7E, E7 
lEEB DATA233, IC, 3C, 19 ,FE, 3D, 16 ,7C, 46 
1670 □ATA234.00,BC,FE, IE, 7F , 05 , 2A, 00 
1660 DATA235.00,00,7E,0e, 1F,?E,F7.00 
1690 DATA23e,00,03,B6, IF.FE, 03 , B0.00 
1780 DATA237,0B,3B,7C,3C.32,B2,ei .01 
1710 DATA24a.77,2A,FG,2C.77,AA,2S.2C 
1720 DATA241 . E6 , 46 ,FE.4A. EA,EA,52 .E4 
n3B DATA242.20,20,FE.22,22,22,42.eE 
1740 DATA243.0S,EF,5A,42.4A,G4,84. IB 
1750 DATA244,4E,EA,FE,EC.5A,7C,FE. 10 
1760 DATA246,0e,22, 14,06,55,22,55,00 
1770 DATAe204,43,6205, 116,8206,96.6207, 1 
66,6203, 134,6210,225.6211,247.8213, 161,8 
220,246,6221 ,244.6223,252 

1780 ■ tt-fl 7---P 

179B DATA], 2. 2, 3, 3,4,5, 1.2,2.3,3.4,5 

1800 □ATAl.B.7,7.6,5,5,7,7.a,7,4.6,e.5 

18 IB 0ATA3,9,9,9,3, 1,3,3,2,2.1,9.9,2,1,1 

,1,9,1,2,1,1.1.1.1 

1820 DATA",- -7. , -JH-b- . -Sf -ly? .t-tV -9>7.V'5-<t 




HYPER BEFORE 
BURNER 



10 SCREEN 1 :WmTH32 

20 LOCATES, 1 :PRiNT"HYPER BEFORE BURNER I 

11" 

30 L0CATE2. 4;PR1NT"TURB0 R MODE 7 ";:A$ = 

INPUTS (1) :IFAJ="Y"THENPR1NT"TURB0 R MODE 

■:POKe*HD000. lELSEPRINT'NOMAL M0DE":POKE 

SHD000, 

35 L0CATE2. 6:PaiNT"HEVERS MODE ? ";:At=I 

NPUTt (0 :iFAt="Y"THENPRINT"REVEHS MODE": 

POKE&HD001. lELSEPHINT'NOMAL MODE'iPOKEiH 

D001.0 

40 L0CATE2. 8:PR1NT"H0W MANY TOMCAT (0<>9 

) ? ";:Ai = INPUTt (I) :POKESHD002. VAL(AI) + 1 

;PRlNTVAL(Atl 

50 L0CATE2. 10:PRINT"LEVEL (0<>3) 7 ' : tA* 

= lNPUTt (1) :POKEiHD003. VAL (A$l +1 :PRINTVAl 

(AS) 

60 L0CATE2. 12:PR1NT-0K 7 ": ;At = INPUTt (1) 

:lFAt='N"THENCLS:GOTO 20ELSE80 

70 'SCREEN MODE 

80 SCREENS. 3:C0LOR 15, 0. 0;COLOR =(6.4,2. 

0) :FORI=0TO2;COLOR=(1 + I, 0, 2, 5* I) :NEXTI:F 

0RI=[ST03;C0l.0R= (10 + 1. 0, I, 1) :NEXTI :SETPAG 

E0. 1 :CLS:SETPAGE0. 0:P=0 

90 'MAKE GRAND DATA 

100 FORI=-8TO-3:LINE(0, 0)-(119, 59). 6. B:L 

INEd. 1) - (118. 58), 1,BF:LINE(1, 1)- (118. 32 

),2, BF;L1NE(1, 1)-(118. 18).3. BF:LINE(1.40 

+ 1*2)- (118. 40-1*2), 6: PAINT (60,58). 6:C0P 

Y(0, 0)-(119, 59),0TO((PMOD2)«120, (((8+!) » 

2)»60)), 1 :P=P+1 :NEXTI:SETPAGe0, 2:CLSiSeT 

PAGE0, 

110 FORI=-2T03; LINE (0. 0) - (1 19, 69) . 6. B: LI 

NE(l, D- (118. 58), 1.BF;LINE(), 1) -(118.32) 

. 2, 8F:LINE(1. l)-(1 18, 18).3, BF;LINE(1,40+ 

I«2)-(n8. 40-1*2). 6: PAINT (60, 58).6:C0PY 

(0,0) -(119. 59). 0TO((PMOb2)*120. (((2+ 1) ¥2 

)*G0)), 2:P=P-tl ;NEXTI:SETPAGE0. 3:CLS:SETP 

AGE0, 

120 FORI = 4TO8:LINE(0, 0)-(1l9. 53), 6, B;LIN 

Ed, D- (118, 58). 1. BF; LINE (I. 1)- (118, 32). 

2, BF:L1NE(1. 1)-(118. 18). 3, BF;L1NE(1,40+I 

«2)-(118. 40-1*2), S: PAINT (60, 58). 6:C0PY ( 

0.0} -(119. 59).0TO((PMOD2)*120, (((I-4)*2) 

•60)). 3;P=P+1:NEXTI 

130 'SPRITE SET 

140 SPRITES (0)=CHRt (8) : SPRITES (1) =CHRt (2 

4)+CHRS(36)+CHRS(40)+CHRS(20) :SPRITEI(2) 

=CHRS(52) +CHRS(126)+CHRS (100) +CHRS (86) +C 

HRS (126)+CHRS{52) : SPRITES (3) =CHRS (122) +C 

HRS (215)+CHRt (243}+CHRS(231)+CHRS(254)+C 

HRS (IS8)+CHRS (12S)+CHRS(104) ;GOSUB1040 

150 _TUfiB00N 

160 DEFINTA-Z 

170 DIM XI (15). Yl (15). CI (15) , E (15) , EN (15 

).EF(r5). EX(!5). EY(IS).EZ(15) 

180 'MAIN PROGRAM 

190 SETPAGE0. 0:CLS;WA=PEEK(iHD000) :HP=PE 

EK(I,HD002) :LV=PEEK(iHO003) :M1= (10-LV) *20 

:SC=0:Q=1 :QI =3:X=0:X1 =22 : Yl =5:MF=0:ST=0: 



FOR1=0TO7:X1 (I) =-255: XI (I+8)=0:YI (1)=40: 
CI (1)=0:NEXTI:FORI=0TO14:EN(I}=0:EF(I)=0 
;NEXTI;LINE(S7. 59) -(188, 120), 15,BF:G0SUB 

480 : GOSUBg 1 
200 S=STICK(Q) :V=0:XF=X;FORI=0TOWA«500;N 
EXTI:FORI=0TOLV*I00:NEXTI:IFPEEK(*HD001) 
=1THENIFS^1THENS=5ELSEIFS=5THENS=1ELSEIF 
S=2THeNS=4ELSEIFS=4THENS=2ELSEIFS=8THENS 
=6ELSE1FS^6THENS=8 

210 IFX<>0THENIFX>0THENX=X-1ELSEX=X+1 
220 !FS=1 THENN=1 :V=2ELSE1FS=5THENN=2ELSE 
IFS=30RS=4ORS=2THENN=3;X=X-2eLSEIFS=7ORS 
=8ORS-6THENN=4:X=X+2ELSEN=0 
230 1FX>80RX<-8THENX=XF 

240 XE=X1 :YE=Y1:X1=X1 + (S = 70RS'=80RS=6)-(S 
=30RS=20RS=4) :Y1=Y1*(S=10RS=80RS=2)-{S=5 
ORS=60RS=4) :IFX1<-10RX1>480RY1<-30RY1>18 
THENX1=XE:Yr=YEELSER=RND(1)*l0:IFSTRIG(Q 
)ANDR<>1THENST=1 :SR=RND (1) *2:PUTSPRITE1, 

(XE*2-t6a. YE*2+60) . 8+SR. 9ELSEST=0 

250 PUTSPRITE0. (X1*2-tG8. Y1*2+60-V) , 15, 4 + 

N 

260 IFST=0THENPUTSPR1TE1, (0.217) 

270 IFSTRIG(O1)ANDMF=0ANDMI>0THENMF=1 :DC 

=0:FORI=0TO9:IFEF(1)=2THENM=1:DC=DC+1:PU 

TSPRITE30. (EX(M)+68, EY(M)+60). 8. 21:NEXTI 

ELSENEXTI 

280 IFDC=0THENMF=0 

290 IFMF=>ITHENGOSUB350 

300 IFSC>0THENLINE(68. 140)-(68+SC. 144). 2 

.BF 

310 LINE (68. 145) -(68+80. 149) . 0. BF:LINE(6 

8. 145)-(68+HP*8. 149). 8. BF 

315 LINE (68, 1 50) - (68+ 1 00, 154) , 0, BF: IFMK 

=0THEN320ELSELINE(68, 150) - (68+MI¥2, 154). 

320 FORI=0TO14:R=HND(1)*I00*(1+LV) :IFR=1 

ANDEF[I)=0THEN EF (I) =1 :NEXTi ELSENEXTI 

330 IFHP<=0ORSC>1I9THEN960 

340 GOSUB480:GOSUB430:GOSUBGa0;GOTO 200 

360 'MISSILE 

360 IFMF=1THENX2=X1:Y2=Y1:Z2=48:MI=MI-1: 

MF=2 

370 IFX2«2>EX(M)THENX2=X2-IELSEX2=X2*1 

380 IFY2*2>EY(M)THENY2=Y2-1ELSEY2=Y2 + 1 

390 Z2=Z2-2: IFZ2<=0ORX2<-1ORX2>46ORY2<-3 

0RY2>18ORMF=3THENPUTSPRITE2, (0. 217) ; PUTS 

PRITE30, (0.217) :MF=0:RETURN 

400 PUTSPRITE2. (X2*2+68, Y2»2+60) , 10, 20- ( 

48-Z2) K24 

410 RETURN 

420 'SCROLL 

430 FORI=0TO7:Y1 (I) =Y1 (I) +Y1 (I)*16:X1 (I) 

=X1 (1) +Xt (l + 8)+X¥3:lFXI (1)<0ORX1 (I)>120O 

RY1 (I) =0ORY1 (I)=>58THENX1 (I) =RND(1) *120: 

Yl (I)=40+{(60-X1 (n)*X)» 16*1.8:01 (I)=0;X 

1 (I+8) = (60-X1 {l))i(6*-1:NEXTI:G0T0 460ELS 

EC1 (I)=C1 (D+l 

440 PUTSPR1TE13 + I, (XI (I)+64,YI (I) +56) . 10 

+C1 (I)¥3.C1 (!)¥3 

450 NEXT I 

460 RETURN 

470 'GRAND 

480 ON X+9GOTO490. 500. 51 0, 520, 530, 540, 55 

0. 560, 570. 580. 590, 600, 610, 620, 630, 640. 65 



490 COPY(0. 0)-(119, 59). ITO (68, 60) , 0;RETU 

RN 

500 COPY ( 1 20, 0) - (239. 59) , 1 TO (68. 60) . : RE 

TURN 

510 COPY(0. 60) -(119. 113), 110(68. 60) . 0:RE 

TURN 

520 COPY (120, 60) -(239, 119). 110(68. 60). 0: 

RETURN 

530 COPY(0, 120) -(119. 179). 1T0(68. 60) , 0:R 

ETURN 

540 COPY ( 1 20. 1 20) - (239, 1 79) . 1 TO (68, 60) . 

; RETURN 

550 COPY(0. 0)-(119.59).2TO{68, 60),0:RETU 

RN 

560 COPY(I20, 0)-(239. 59).2T0(68, 60).0:RE 

TURN 

570 COPY(0. 60)-(119, 1I9),2T0(68. 60). 0:RE 

TURN 

580 COPY(120, 60)-(239, 1 19) , 2TO{68, 60) . 0: 

RETURN 

590 COPY(0, 120) -(119, 179),2TO(68. 60),0:R 

ETURN 

G00 COPY (120,1 20) - (239, 1 79) , 2T0 (68, 60) , 

: RETURN 

610 COPY(0, 0)-{1l9, 59),3T0(68, 60),0:RETU 

RN 

620 COPY (120,0) -(239. 59),3T0(68. 60),0:RE 



TURN 

630 COPY (0,60)- (119, 1 19) , 3T0(68. 60) . 0:RE 

TURN 

640 COPY ( 1 20, 60) - (239, 119), 3T0 (68. 60) , : 

RETURN 

650 COPY(0, 120) -(119. 179). 3 TO (68. 60),0:R 

ETURN 

660 RETURN 

670 'ENEMYSUB 

680 FORI=0TO14:IFEF(I)=>1THENGOSUB690:NE 

XT I : RETURNELSENEXT 1 : RETURN 

690 IFEF(I)=1THENEF(I)=2:1F1>=0AND4=>ITH 

ENEX(I)=RNO(1)*88:EY(I)=RND(1)*30:EZ(I) = 

0:EN(I) = 1:E(I)=1NT(RNO(I)*3)-1ELSEEX(I) = 

RND{1)*88:EY(I)=RND(l)*30:EZ(I)=0:EN(I) = 

1 

700 IFI>=0AND4=>1THENEY(I)=EY(I) + (EZ(I)¥ 

18)«E(I) :EZCU=EZ(I)+1ELSEIFI>=5AND9=>IT 

HEN EY(I) =EY(I) +EZ(I) ¥16:E2(I)=EZ(I)+2 E 

LSEEY(I)=EY(I)+EZ(I)»20:EZ(I)=EZ(I) + 1 

710 IFEZ(I)=<8THENPUTSPR1TE3*I. (EX(I)+68 

,EY(I)+60), 14, 11 :GOT0 800 

720 IFEZ(1)=<20THENPUTSPRITE3+I, {EX(I)+6 

8.EY{I)+60), 14. 12:G0T0 800 

730 IFEZ(I)=<36ANOI>=0AND4=>1THENPUTSPRI 

TE3 + I. (EX(l)+68, EY{1) +60), 14. 13:G0TO 800 

740 IFEZ (I) =<36AN0I>=5AND9=>ITHENPUTSPRI 

TE3 + I. (EX(I)+68. EY(I) +60). 14. 17:G0TO 800 

750 1FEZ(I)=<36ANDI>=10ANO14=>1THENPUTSP 

RITE3+I. (EX (I) +68. EY(I)+60). 14. 15:G0T0 8 

00 

760 IFEZ(I)=<40ANO1>=0AND4=>1THENPUTSPRI 

TE3 + I. (EX (I) +69, EY(I) +60), 14, 14:GOTO800 

770 IFE2(I)=<40ANDI>='5>yjD9=>ITHENPUTSPRI 

TE3+I, (EX (I) +68. EY (I) +60), 14, 18:GOTO800 

780 IFE2(I)=<40ANDI>=10AND14=>ITHENPUTSP 

R1TE3+I, (EX (I) +68, EY(I)+60). 14, I6:GOTO80 



790 IFEZ(I)=<48OREN(I)=0THENEF(I)=0rPUTS 

PRITE3 + I, (0, 217) 

800 IFEX(I)>X1»2-12ANDEX(I)<Xl«2t12ANDEY 

(I)>Y1*2-18ANDEY(I)<YI*2ANDEZ(I)=>36ANDS 
T=1THEN SC=SCt1 :FORJ=0TO45: R=RND (1) *16:R 
1=RND(1)*16:PUTSPRITE31. (EX (1) +60+R. EY (I 
)+52+R1). 14+RN0(1)*2. 1 0: NEXTJ : PUTSPRITE3 
1. (0. 217) :EF(I)=3:GOSUB870 
810 1FEX(I)>X2*2-12ANDEX(I)<X2*2 + 12ANDEY 

(1) >Y2*2- 1 2ANDEY (I) <Y2*2+ 1 2ANDEZ (I) >Z2-6 
ANDEZ (I) <Z2+6ANDMF=>] THEN SC=SC+1 :FORJ=0 
T045:R=RND(1)*16:R1=RND(1)»16:PUTSPRITE3 

1. (EX(I)+60+R. EY(I)+52+R1). t4+RND(1)»2. 1 
0:NEXTJ;PUTSPRITE31, (0, 217) :EF (I) =4:G0SU 
B880 

820 IFEX (I) >X1*2-24AN0EX (I) <X1 *2+24ANDEY 

(I)>Yl*2-12ANDEY(I)<Y1*2 + 12ANDEZ(I)=>3eA 

NDST=0THEN HP=HP-1 :GOSUB890:FORL=0TO5:FO 

RJ=0TO45:R=RND(1)*16:RURND(1)*16:PUTSPR 

ITE31. (X!*2+60+R. Y1*2+52 + R1+L»2), 14+RND( 

1)*2. I0:NEXTJ:NEXTL:PUTSPRITE3I. (0, 217) : 

EF(I)=3 

830 1FEF(I)=3THENEF(I)=0:PUTSPRITEU3. (0 

. 217) 

840 IFEF(I)=4THENEF(I)=0:PUTSPRITEI*3. (0 

, 217) :MF = 3 

850 RETURN 

860 'SOUND 

870 SOUND 1.15: SOUNDS. : S0UND7, 39 i SOUNDS. 

31: SOUNDS. 1B:S0UND9. 16:S0UND13. 1:S0UND12 

. 25: RETURN 

880 SOUNDl, I5:S0UND3. 12;S0UND7, 39:SOUNDG 

, 31 : SOUNDS, 16:S0UND9. 1G;S0UND13, 1 : SOUNDl 

2. 30:RETURN 

890 SOUNDl, 0:SOUND3, 0:SOUND7, 39:S0UND6, 3 
1:S0UNDS, 1E:S0UND9. 16:SOUND13, 1:S0UND12, 
70: RETURN 
300 'DEMO 

310 R1=0:L1=53:FORE=0TO20:N=2:F=44:G=38: 
L1=L1-1:GOSUB480:GOSUB930;FORH=0TOWA*250 
0:NEXTH:NEXTE:FORG==38TO30STEP-2:N=0:RI=R 
1+1 :L1=L1+1 iGOSUB480:GOSUB930:FORH=0TOWA 
*i000;NEXTH:NEXTG 

920 FORG=30TOI0STEP-2:V=2:N=1:R1=R1+1:L1 
=L 1 + I ; GOSUB480 : GOSUB930 : FORH=0TOWA* 1 000 : 
NEXTH:N£XTG; RETURN 

330 LINe(67+L1, 119) -(126, 100+R1). 15; LINE 
(186-Ll. 1 19) -(127, 100+R1), 15: PAINT (127. 
119). 14. 15 

940 PUTSPRITE0. (F + 88. G+60-V) , 15. 4+N:RETU 
RN 

950 'GAME OVER 
360 SCREEN! 

370 LOCATEI0. 5:PfiINT"GAME OVER" 
980 LOCATEI0. 7:PRINT"SC0RE:";SC: IFSOHIT 
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HENHI=SC 

S90 LOCATE! 0, 9: PRINT'HI-SC0RE:':H1 

1003 LOCATE10. 11 :PfiINT"REPLAY7" 

1010 IFSC=119THENLOCATE10. 11:PRINT"Y0U A 

RE BEST GUY' 

1020 IFSTRIG(Q) tSTRIG (01 1 THENSCREEN5:G0T 

OI80ELSE1020 

1030 'SPRITE SET S 

10J0 FORA=0TO17:FORI=0TO31 :READAt :C=VAL ( 

"SH'+AI) :BS=Bt+CHRJ(C) :NEXTI iSPRITEl (4+A 

)-8$:Bt = ":NEXTA:ReTURN 

1050 'SPRITE DATA 



1060 DATA 00.00.00 
0B. 00, 00, 00, 00, 00 
1070 DATA 00.00.00 
A0. 00, 00, 00. 00. 00 

1 080 DATA 00, 00, 00 
E3, 00, lA, 00. 00. 00 
1090 DATA 00,00.00 
8E, 60, B0, 00. 00. 00 
1100 DATA 00,00.00 
08. 00. 00. 00. 00. 00 
n 10 DATA 00. 00. 00 
A0. 00. 00, 00, 00, 00 
1120 DATA 00.00.00 

77. 06. 00, 00, 00, 00 
1130 DATA 00,00.00 
A0, 00, 00, 00, 00, 00 

1 140 DATA 00, 00, 00 
0B, 00, 00, 00, 00, 00 
1 1 50 DATA 00, 00, 00 
DC, 20. 00, 00, 00. 00 
1 1 60 DATA 00, 00, 00 
00, 00. 00. 00. 00. 00 
1170 DATA 00,00,00 
00, 00. 00. 00. 00. 00 
1180 DATA 00.03. IB 

78. 3D. 2E. 0F, 02. 00 

1 190 DATA 00. A0. Da 
EE. FE. 56. 74, E0. 00 
1200 DATA 00. 00. 00 
00, 00, 00, 00, 00, 00 
1210 DATA 00,00,00 
00, 00, 00, 00, 00, 00 
1 220 DATA 00, 00, 00 
00, 00, 00, 00, 00, 00 
1 230 DATA 00, 00, 00 
00, 00, 00, 00, 00, 00 
1 240 DATA 00, 00, 00 
00, 00. 00. 00. 00. 00 
1 250 DATA 00, 00, 00 
00, 00. 00. 00. 00. 00 
1260 DATA 00.00,00 
FD. 02. 00. 00. 00. 00 
1270 DATA 00,00.00 
BP. 40. 00. 00, 00, 00 
1280 DATA 00.00.00 
00. 00. 00. 00. 00. 00 
1290 DATA 00,00.00 
00. 00, 00, 00, 00, 00 
1300 DATA 00.00.00 
00. 00. 00, 00, 00, 00 
1310 DATA 00,00,00 
00, 00, 00, 00, 00, 00 
1320 DATA 00,00,00 
00. 00, 00. 00, 00, 00 
1330 DATA 00, 00,00 
00, 00, 00, 00, 00, 00 
1340 DATA 00,00,00 
00, 00, 00, 00, 00, 00 
1 350 DATA 00, 00, 00 
00, 00. 00. 00. 00, 00 
1 360 DATA 00, 00, 00 
00, 00, 00, 00, 00, 00 
1 370 DATA 00. 00, 00 
00, 00, 00, 00, 00, 00 
1 380 DATA 00, 00, 00 
00, 00. 00. 00. 00. 00 
1390 DATA 00,00,00 
80, 80. 00. 00, 00. 00 
1 400 DATA 00, 00. 00 
00, 00. 00. 00. 00. 00 
1410 DATA 00, 00, 00 
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01,03. 0F. IB, 65. 
00, 80. E0, 60, 4C. 
01.03.07, 17, 3B 
00. 80. C0. D0. B8 
00, 01,07, IB. 75 
00, 00, C0. B0. SC 
00, 01.03. 0F, IB 
00. 00. 80, E0, 58 
00.01.03, 0F,35 
00. 00, 80, E0, B0 
04, 08, 00, 00. 00 
40, 20, 00, 00, 00 
7D. 2B. 3B. 5D. 72 
AE. 62. 7A. BE, F4 
00,00.01.00,00 
00, 60. C0, 00, 00 
00.01.03,00.00 
00. 40, E0, 80. 00 
04. 02, 03, 0E, 01 
1 0, A0, 60, Be. 40 
08, 04, 03. 06, 09 
1 0, 20, C0, 60, 90 
00, 02. 0D. 03. 00 

00, A0, De. E0. 80 

01. 31, 0E. 03. 00 
40, CB, B8, E0, 80 
00, 00. 0F. 00, 00 
00, 80. F8. 80, 00 
00. 01. 3F, 01,00 
a0, 40. FE, C0, 80 
00,00,01,03,01 
00. 00, 00, 80. 00 
01,01,02, 0F, 01 
00. 80, F0, 40. 80 
00. 02, 05, 05. 02 
00. 40. A0, A0, 40 
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20 _KiNJI 

3B SCHEEN5.Z:COLOR15.0,B:SETP*GB0,1:CLS: 

C0LORl,I3:L0CATEI6.H:PRI«T''RiE:!O!a«1tj 

IS": :COLOR1,4,4:PRINT"* " :SETPiGE0, :CLS 

:SETBEEP4,4 

40 _rURBOON 

50 UEFINri-¥:DlH i (22) . M (90, 1 ) . TX (3) . TV ( 

'J).TS(3).U(7),C(7).TC(7).TG(3):ST=3 

60 ONSPRITEGOSUB760:SPRITEON 

7a '..... u n 

8a FORI=0TO30:X=RND(1)«248:¥=RND(1}«I90: 

COPV(24B.0}-(255,15).lTO(X,¥),a:NEXTI:FO 

R1=BTO15:COP¥(128,0)-(239.1).1TO(76,80-I 

).0:FORJ=0TO9B0:NEXTJ:HEXTI:LOCiTE8,7:PR 

INT-ti- tiA.^ a LT fa" 

98 F0HI=aTOl:C0LOR={I.4.5.2):I=-SrRIG{l) 

-STRIG{3):COLOR=(I,3,4,1}:NEXTI:COLOR15. 

0,aLCLS:BBEP 

100 FORi=0TO17:RE*DA(I) :NEXTI 

II0FORI = 0TO7:HEA13U(I),C(I):NEXri 

120 FORI=BTO3:CS="":FORJ=0TO3I:REiDAS:BS 

= CHRS(VAL("*H'' + AS)) :CJ = CS + BS:NEXTJ:SPflIT 

130 RESTORE900: FORI =0103:0$="" :FORJ=0TO3 

I:READAi:BS=BINI<ViL("SH"*A$)+256):A$="" 

:FOHK=0TO7:Ai=ASKlIDS(8$.9-K.I):HEXTK:BS 

=CHK$(VAL("SB"tAJ)) : CI =CS*B J : NEXIJ : B$=K1 

D$(CS.17, 16)t(IIDS(CS.l. 16) :SPRITE$(It4) = 

BS:NBXTI 

140 FORI=0TO4:CJ="":FORJ=BTO31 :READA$:BJ 

=CHRS(ViL("»H"*AS)) :C$=CS+BS;NEXTJ:SPRIT 

ES{I*8)=CS:NBXTI 

150 ...... r I J r 77<T? •••-• 

160 SETPiGE0,l:FORI = 0TO2:FORJ = 0TI)2:CIRCL 
E(62,I46),20-tI-3 + J,7-I*(r=l) + (I = 2):NEXTJ 
:NEXTI: FORI =0701: CIRCLE (57*1 '10. 141) ,3,7 
:NEXTI:PAINT(62,146).7,7iLINE(52.156)-(6 
2, 151) ,8:LIHE-(72,156) ,8 

170 READ*J,A,B,SN:SETPiGE0,l:COLORA,B:FO 
R I = BTO9:LOCATH0,1:PRINT*$* AS :NEXTI: COLOR 
15,0:SETPAGE0,B 

180 ■ Xf-y T -t 3i3; ..... 

190 FORJ=BTO1:FORI=BTO90:H(I, J)=0;NEXTI: 

NEXTJ 

200 K=0:FORJ=0TO1 

210 READiS:IFiS = ''A"THeKREADA$.BS:FORI = 0T 

0VAL(iJ)-I:«(l(.J)=V4L{aS);« = H*l:NEXTI EL 

SEIFA$ = "E"THENN = 0:GOTO230ELSEK(I!,J)=VAL( 

A$) :M=H*1 

220 GOTO210 

230 NEXTJ 

240 CLS: L0CATEl,2:PRlHT"X-7^ — £=";ST 

259 FORI=0TO15:COPV(0,B)-(15,3r),ITO{I.l 

6,176),8:NEXri:JP=B:K=a;Hl=eLX=BB:V=89:V 

1=0:Y=128:A=8:BO=0:BP=20:R=0:FORI=0TO3;T 

X(I)=B:TY(I)=8:TS(I)=0:IG(I)=0:PUrSPRITE 

1+2, (B.0),B:NEXTI:PUrSPRITEl, (0,0) ,0:SPH 

ITEON 

26B '••*•• tV/ ••••• 

27aS = STICK<l):S2 = STRIG(l}:S3 = STRIIi(3):I 

FS4<>0THENS1=BELSSSI=S2 

i:80 S4 = S2 

290 IFS=7ORS=3THENGOSUB540 

3B0 lFS=7ANDP0INT(V-Z,Vtl5)=BTHENX=X-2LV 

=V-2:H=4ELSEIFS=3ANDPOINT{V*17,¥*15)=0TH 

ENX=X+2:V=V+2:H=0 

318 1FX(16IHENX = 16:V = V+2ELSEIFXH12*NDB0 

=0THBNX=112:V1=V1+2:H1=H1+2:GOSUB638ELSE 

IFX)240THENX=240:V=V-2 

3Z0 IFVJ255THENV=0ELSEIFV(0IHENV=255 

330 IFBO=0THBNIFVi)255THENVl=0 

340 IFH!)31THENHl=0:H=Htl :T=1 

3SB IFBO=0THENLlNE(V1.0)-{VI+l,Z0e).0.BF 

:IFM(K.0))0THENCOP¥()I1.0)-(N1*1,K(II.0)«1 

6-l),lTO(Vl,20e-K{H.0).16) ,B 

360 SETSCROLLVl ,0.1 

370 IFS1 = -1ANDJP = 0ANDG = 0TIIENJP = 1 

38B IFJP-1THENY=¥+A(G):I=Z+1/2:G=1NT(Z): 

G0SUB56B:IFG>17rHENG=17 

398 IFJP=0AND(POINT(V,¥*16))0ORPOIHT(V+1 

5,Y+I6))0)THENGOSUB589ELSE IFG=BiND JP=0T 

HENG=I1 

400 IFG>8ANDJP=0THEN¥=¥»i(G):G=Gtl:iFG)! 

7rHENG=I7 

410 JFR=0IHENPUTSPRirEI.(B.0),0:IFS3=-lA 

NDBO=1THENR=I:RX=X*{H=4).1Z-(H=0)»12:R¥= 

¥:!I1 = H 

420 IFR)0THEHRX=HX+(K1=4)«8-(M1=B)'8:IFR 

X<16ORRX)255IHENR=0:PUTSPRITE1,(0,0),BEL 

SEPUTSPRirEl,{RX.R¥).15,2 + Hl:IFP0i:NT(RX* 

8+Vl,fi¥))8ORP0rNT(RX*8+Vl,RY+15))8THEHR= 

0:BP=BP-1 :COLOR=(0, 7.0.0) : FORI =010 900: NE 



Xrl:C0LOR={8. 0,0,0) :IFBP<IIHEHBEEP:BEEP: 

G0TO858 

430 PUTSPRITE0, (X,¥-l) .5,H-(A) 1} 

440 IFH<N,I))8ANU>I1 = 0THENGOSUB68B 

450 F0RI = BT03-. IFTX{I)(UHENPUTSPHITB2 + I, 

(0,0),0ELSETX(I)=TX(I)+U(TS(I)-5} :G0SUB6 

50:PUTSPHITE2tI, (TX(I) ,TY(i)),TC(I) ,IS{I 

)t(TS(I)=6).3 

460 IFrX(I)<16ORTX(I)>239rHENrx(I)=0:TS( 

I)=0:TG(:)=0 

478 NEXTI 

480 IFV)2I1THEN(;0SUB76B 

490 IFN)2ANDBO=0ANDST=6THEHBO=1;LINE(B,1 

76)-(Z55,207),4,BF:V=V-Vl:Vl=0:BH=3:BG=0 

:BY=B:SETSCROLL0,0:FORJ=0TO3:FORI=0TO15: 

COPY(32.112 + J + I*4)-(95.U2 + J + I-4). 170(16 

fl, II 2* J*I»4),0:HEXTI: PORK = 0703000 ;NEXTK: 

NEXTJ 

580 IFN)SN-1THENBBBP: BEEP: BEEP :GOTO820 

518 IFBO=1THEN708 

52a GOTO 260 

530 "..... 

540 IFJP=ITHENA=-BELSE IFA (- lTHE«*=At lEU 

SEIFA>lIHENA=A-IELSEIFA=iTHENA=-8*D.4ELS 

EIFA=-ITHENi=a-D»4 

550 RETURH 

S60 FORI=0IOI:IFPOINT(V+I*15,Y+15))BTHEN 

Z = B: JP = 0:G = 8:GOSUB58B 

570 NEXTIiRBTURN 

5 88 J=8:iFPOINT(V,¥*15)>0ORPOINT(V*15,¥+ 
I5))0THEN¥=V-1ELSEJ=1:G=0 

590 IFJ=1THENRETURHELSS580 
60a ' .•... f< ..••• 

610 FORI = 0rO3:IFTX(I)(lANDT=lrilENTS(I)=ll 

(ll.l)+5:TX<I) = 239*(TS(I}=6)«223:TY(I) = 19 

1-H(H,8)«16:T=0:TC(I)=C(TS(I)-5):IFTS(I) 

=12THE«TX(I)=XtRND(l).64-8:TY(I)=0 

620 NEXII:RETURN 

630 FORI=0TO3:IFTX(I)J8THEKTX(I}=TX(I)-2 

640 HEXTI:RETUHN 

650 IFTS(I)si0THENIF¥-T¥(l))BTHEHT¥(I)=T 

Y(I)*lELSEr¥(I)=TY{I)-l 

660 IFTS(I)=12THENTY[I)=r¥(I)+3:IfX-TX(I 

))0THENTX(I)=TX(I)+lELSErX(I}=TX(I)-l 

6 78 IFrY(I))211THBNTX(I)=B:TS{I)=0 

689 IFTS(I)=lITHHNTV{I) = rY(I)tA(TGa))»2 
:TG(I)=TG(I)+l:IFTG{I)>17rHENTG(I)=B 

690 RETURN 

700 ' *■ X 

710 IFPOINT(Vtl,V*I)>0ORPOmT(V*I4,Y+l)J 

9ORPOINT(V+I,Y+I4))BORPOINT(V + 14,¥'-I4))0 

THENGOSUB760 

720 V1 = V1*BH:V = V + BH;IFV1 (-44THENBH = 3ELSE 

lP«I'16)176THENaH=-3 

73BCOPY(32,30*BY)-(95,175+B¥>.1TO{160,3 

0) .B.PSET 

740 B¥=BY-A(BG)'2:BG=BG+I:IFBG)17THEHBG= 

B 

750 GOT0528 

760 ■ ...>• SI ! ! ..... 

770 G=B:SPRirEOFF 

789 PUTSPHITEfl. (X , ¥) ,4,H :G=G+1 : IFG) 17rHE 
NG=17 

790 ¥=Y+A(G) ;IF¥(227THENFORXs0TO700:HEXT 
1:GOTO780 

8B0 CLS:SETSCROLL0,B: BEEP :FORl=0TOe: CIRC 

LE(12B,96),l»I.e:NBXTI:C0L0R15.13:L0CiTE 

11,6:PRINT" S X I I ":COLORi5,B:FORI=0TOI 

6BB0:NEXTI:RETURN240 

810 RETURN 

828 '.*... Xf-y fifT ••••• 

839 ¥=¥-I:IFY(-2BTHBH840ELSEPurSPRITEa, < 
X.V) :POHI = 0TO200:»EXn:GOTO830 

840 ST=ST+I:CLS:SETSCROLL0.8:COLOR15,4:L 
0CATB8,6:PRINT"X7^-£^J' >) r":COLOR15,0 
: BEEP : FORI = 0TO 28800: NEXTI: GO TO 170 

850 ' ..... lyf' O?' ..-•• 

860 FORI=0TO300:LINE(160+RND(l).64,30)-( 

16B*RNO(I).64,175),0:FORJ=eTO498:NBXTJ:» 

EXTI:G0TO1189 

870 DATA -9,-9,-7,-5,-4,-3,-2,-1,0.0,1,2 

.3,4,5,7,9,9 

880 DATA 9,0,8,4.-8,4,0,14,-2,13,-1,7,-1 

3 8 
89B '...-. jj- ?U r -* -•... 
908 DATA 01,87,0F,0F,1E,1C,IC,3C,76.7B,7 
B,E3,FF,E3.DD,CD,F0.F8,FC,FC,04.B4,96.06 
,06.8E,FC,FD,FB.FB.F7,BB 

910 DATA 91,07,0F,BF.ie,IC,lC.3C,7E,4F,6 
F , 9F , F8 , 67 , 6P , 6B , F8 . F8 , FC , FC , 04 , 94 , 96 , 05 
.05,8D,FE,FE,7E,78,44,3C 

920 DATA 3F, IF, 03, 98, 00, 88,00.00, 98, 00,0 
8,B0,B1,0F,3F,7E,00,C9,FB,F8.7C,3E,3E.3E 
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.3.e 
.3, 



e . 3 , ti . e . A . 9 . 4 . 



,i,9,a,E 

,3,A,9,0.i.3.4, 



.i.e.B.i 



,3E,3E,7C,FC,F8,FB,EH,00 

93B DAT* D»,68.34,3F,3F,34.68,aB.Da,68.3 

4,3F.3F.34,68.D0,08,aC,0E,FF,FF.0E.8C.00 

,ac,0c,aE,FF.FF,ai!,ac,08 

94a DATA 01,lll9,25.13.eF,6F,IB,I9,DF,Ig,l 

D,4F.a7.58,25.41.00,24.48.9Z,F4,F9,DA,9B 

.F8.7A,B9,Fa.E4, 12, 5a, 08 

95a DATA 0a,40,66,76,F7,EF,ED,EF,C6.C"B,9 

C,83,98.3E,0B,aa,00,02,66,6E,EF.F7,B7,f7 

,63.03,39. 09,01,78.18, 00 

960 DATA 0a.0F,3F,7F,FF.BD.D6,FF,FF,*5,8 

i.C3.7F.3F,lF,07,B0,8B,ca,E0,F0.F0.F0,Fl 

,F3,F6,F6,F3.E7,F7,FH,F8 

9?a DATA 00,Ba,aa.0a,00,an.0a,0B.a7,iF,3 

F,&F.EF.FF,FF.78.00,a0.08.00,a0.0a,00,a0 

.Ea,F8,FC,FE.FF,FF,FF.lE 

988 DATA 00,01,01 .00,07, 0F. 07, 3F, 3D, ID, 6 

7,FD,FE,FF,7F,3F.80,8a.Ca.C0,FB,F8,Ffr.FC 

,BC.B8,F6,BF.7F,FF.FE.F8 

gga ■••••• xf-y f -t ••••• 

1000 DATA ♦ .12,2.51 

1010 DATA A,5.2,a,0,A,5,3. A.5,4.A,9,b.5. 

5, a. 0,5. 5. 5, A, 9, 3.*,' 

1020 DATA A, 3. 0,3. A, 5,0, 

0, 0. 3, a. 3, A. 9.0, A. 9, 4. E 

10:^0 DATA A ,10,9.60 

1040 DATA 0.0. A, 5,1, A. 6. 4. A, 8, 6. 0,0. A, 

1 .A, 8, 2. 3, 3, 5. A, 7. 6, 8.0, 

1050 DATA A, 3. 0,3, 0,3.0, 

A, 5.0, A. 9, 4, A. 8,0, 1,1,1, 

E 

1060 DATA © .6,8.85 

1870 DATA 8,0, (,6.1, 0.3. 3, 

4,4.5,0.0,4,0,5,6.6,7.1 

0,0.0, A, 9,1 , A, 9, 2,0, A, 5, 5. 6, 1 

0,2,A,6,4.E 

1880 DATA 0,8. 0,3. A, 6, 0,3, 0,0, 3. 0,8, 3. A, 

7,0, A, 20, 4, 0,0, A, 7, 5, A, 8,0, A, 3.1, A, 5,0, A 

,9.5.0,0.3, 3, 3. E 

1090 DATA T ,5,7,88 

1100 DATA 2, A, 9. 4. A. a, 5, A, 3. 7, A. 5. 8. 9. 9, 

7. 5. 3, 1.0. 1,3. 5, 7. 8, 9. A. 10.1, A, 8. 3. A. 5, 8 

, 9, 9. 9, a. 0,9, 0,0, 9, 1, 8. 4, 9. 9, A. 5, 0,fi 

1110 DATA A, 9. 7, A, 9, 5. A, 4.0, A. 18. 5. A. 5, a 

, A, 5. 1, A, 4.0, A. 20, 4, A, 3,0. A, 6, 7, A. 9, a. E 

1120 DATA = . 13,4.90 

1138 DATA 0, A, 9, 6,0.! 

.6, 1 .2.3.4.5.6.7.8.8 

4, 5. 9, 1.4. 7, 9, 9, A. 10, 2, E 

1140 DATA 0,0,3,0,0,3,0,0,3,0,8.3,0.0,3, 

0,0. 3. 3, A. 6,0, A, 9, 6. A, 3,0, A. 6, 4, A. 9, 5. 3, 

0. 0.3, 3. A, 8. 8. A, 5. I, A. 8, 7. E 

1150 DATA a ,5,4,90 

1160 DATA A,9,2,e 

1170 DATA E 

1180 .TURBOOFF 

1198 SETSCROLL0,0:RESTORE1210:COLOR=<1,B 

,0,0) :COLOR={ 15, 0,0,0} :COLOR1, 15,15 :CLS: 

FORI=0TO7:COLOR=(15. 1,1. I) :FORJ=0TO3B0:N 

EXTJ:NSXTI:F0RI=aTO28:REiUAS:LOCATE2.i2: 

PHINT*S:FORJ=0TO980:NEXTJ:HEXII:FORI=BTO 

1:PUTSE'KITEI,(0,0},0:NEXT1 

1200 GOTO 1280 

1218 DATA S«:*^iiSij£- .at: « L fc 

^ ft (i J ft . (■ JE (0 flUf ti T 4 « it' o fc ■ ■ 



,4,4.0.3,3.8, 

,A,8,8, 
,8.0,1, 



(.9, 9. 0,8, A. 18,1. A 
0,9. 9.0, A. 17. 2, A, 



1220 DATA i <r>ti ii ^ ii h , W 
,1991 SUGASOFT,, 
END.,,, 



THE 




FIGHT! 



iff7?^(jiDe'K-i;i 



100 REK FiRht! By ROLLER TURN 

110 SCREEN 5,liCOL0R 15.0,a:CLS:_ KANJl 

120 _ TURBO ON 

130 DIN X(l) .¥(1) .XX{1) ,¥V(11 .HXtl) ,P¥(1 

) ,C(1 .1) ,P(1 ,1) 

140 ON KEY GOSUB 410:KE¥ (1) OW:GOSUB 59 

a 

15H C(0,H)=4:C(l,0) = 8:C(a.U=0iC(l.l)-8; 

H(0.0)=5:H(l.H)=9:P(0,!)=H:P(l,l)=a 

16H X(0) = 17:¥(01=0:XU) = 223:V(|] = 194:O0 = 

0:DI=0:Xy=-8:V9=-8:PX(H)=a:P¥(a]=219:PX( 

1)=0:P¥(I)=219 

170 LINE (0,0)-U5.211) .5,aF:LlNE (240.0 



)-(25 5,211).C(l,0).BF;LINE (16.0)-<239.2 

11) ,15.B 

180 SPRITES (0)=CHRi(»H3C)*CHR${SH7E)*CHR 

$(8HFF)*CHR$(SHFF)tCHRS(SHFF)+CHRI(SHFF) 

tCHKHSH7E)+CHfi$(6H3C) 

190 REM MAIN 

200 FOR PL=0 TO 1 

210 DH=PAD(12+PL«4):XX(PL)=PAD<i3+PL-4): 

V¥(PL)=PAD(!4+PL*4):SI=STRIG(1+PL1:S2=ST 

RIGO'PL) 

220 IF RG>0 AND PL=1 THEK SOSUB 520 

23H IF SI THEN 390 

248 XtPL)=X(PL)tXX(PL):¥{PL)=VtPL)»V¥(PL 

) 

250 IF X(PL) i 17 THEN X(PL)= 17 

268 IF X(PL)J223 THEN X(PL)=223 

270 IF ¥(PL) < THEN ¥(PL)= 

280 IF ¥(PL))194 THEN ¥(PL)=194 

290 PUT SPRITE 0.PL.( X (PL) , V(PL)),C{PL 

,-S2) .0 

380 PUT SPRITE 2 + PL , (PX (PL) ,P¥ (PL) ) , P {PL 

.-S2) .8 

310 NEXT PL 

3 20 X0=X(0)-PX(1):X0=X8»X0:¥B=¥(0)-P¥(1) 

:¥0=¥a«¥0 

3 38 Xl = X(n-PX(0):Xl = Xl«XllVl=¥(l)-P¥(0) 

:¥1=¥1«¥I 

340 IF X0'-¥a<255 THEN X (0) =X (0) +XX ( 1 ) : ¥ ( 

0)=¥(0)«¥¥(1):O0=D0*SQH(XX(1)»XX(1)*Y¥(1 

)«V¥(l))/4»(R0tl) :L1NE ( 0.211)-( 15.21 

i-D0) ,0,BF:GOSUB 500 

350 IF Xi*¥M255 THEN X ( 1 ) =X ( 1 ) *XX (0) : Y ( 

1)=¥(1)'-V¥(0):O1=D1*S(JR(XX(0)»XX(0)+YY(0 

)«YV(8))/4:LINE (240,211)-(255.211-U1).0 

,BF:GOSUB 580 

360 IF D0)212 OR Dl)212 THBN GOSUB 510:0 

N H0*1 GOTO 420.450,460,470 

■^70 PX(0)=0:P¥(0)=219:PX(1)=0:PY(1)^219 

3H0 UOTO 200 

390 PX{PL)-X(PL)*XXCPL) :fiOSUB 490 

400 PY(PL)=Y(PL)t¥¥(l'L) :SOTO 250 

410 END 

420 IF 00)212 AND 01>212 THEN LOCATE 13, 

10:PKINT "i\ ^ ^ (t":GOT0 440 

430 LOCATE 13U0:IF D0>212 THEN PRINT "R 

ed gin" ELSE PRINT "Blue Bin" 

440 LOCATE 1!,11:PR1NT "DJ'H \>lt'-2":FQ 

R 1 = TO 1 :I:-STRIGj(3)-STRIG(4} :NEXT I:G 

OTO 140 

450 LOCATE 13.10:iF D0>212 THEN PRINT "¥ 



V lost 
OCATK 8 

.0)=2:P 
460 LOG 
ou lost 
OCATE 8 

.0)=14: 
470 LOG 
□ u lost 
OCATE 1 
)=2:P(1 
3) :NEXT 
480 FOR 
(0, 144 
490 SOU 
ND 12, 

500 SOU 
HD 12. 
510 SOU 
ND 12.4 
520 REM 
530 IF 
540 IF 
550 XX( 
1)*(H0+ 
560 IF 
=(X(0)- 
(I))*RN 
570 IF 
588 RET 
590 REK 
600 CLS 
1:CLS:R 
= TO 2 
610 LIN 
VAL<"&h 
YiCOPV 
6 20 SET 
"1 coup 

630 IF 
640 IF 
650 GOT 



":GOTO 44 
. 11 rPRINT 
(1 ,8) = 3:RO 
ATE 13,10: 
"iGOTO 440 
,11 :PRINT 
P(l .0) = 15: 
ATE 13, IB: 
":GOTO 440 
0,11 :PRINT 
,a)=3:RO=0 

IrGOTO 14 

1=0 TO 1: 
)-(255.199 
ND 6,11:S0 
2:S0UN0 13 
NO 6.31 :S0 
3:S0UND 13 
ND 6.11 :S0 
9:S0UN0 13 

COMPUTER 
24)X(n OR 

8)Y(1) OR 
1 ) =X9»HND( 
1) 

RND(I)) (9- 
X(1))»HND( 
D(1)'RND(! 
RND(l); .8 
URN 

TITLE 
:PUT SPRIT 
ESTORE:FOR 
9 

B (X«8+8.¥ 
" + mDS(DS, 
(a.0)-{255 

PAGE 8.0: 
utor" :LOCA 



ELSE PRINT "You Bin":L 
"hU' -2 Nent Round":C(l 
iRO+1 :GOTO 480 
IF D0>212 THEN PRINT "¥ 

ELSE PRINT "You Hin":L 
■'Ml*' -2 Next Roiind":C(l 
R0 = RO'l :GOT0 480 
IF D0)212 THEN PRINT "¥ 

ELSE PRINT "You sin":L 

"CoBKratuXation" :C(1,0 
:FOR 1 = TO 1 :I = -STRIG( 


I=-STRIG(3) :NEXT I:LINE 
) ,0,BF:GOTO 160 
UND 7,55:S0UND 8, 16:S0U 
,4:REIURN 

UNO 7,55:S0UND 9, lb:SOU 
, : R E T U R N 

UNI) 7,55:S0UND 8, 16:S0U 
,0:RETURN 

X(l))220 THEN X9=-X9 

¥(!)) 188 THEN ¥9 = -¥9 

1)«(R0 + 1) :¥Y(l)=¥9»RND( 

RO)/ia THEH S1=-1:XX(1) 

D'RNDd) :YY(I) = (Y(B)-Y 

) 

AND R0=2 THEN S2=-l 



e 0. (0.216) :SET PAGE 0. 
Y=0 TO 7:READ Q$:FOR X 

•8+I6)-(X-a*15,¥.8'23) . 
X*l.l)} ,BF;NEXT X:NeXT 
,95) .1 TO (0.0) .0 
L0CATE8.8:PRINT "IPhVJ' 
TE 8,9-.PRiNT "2PMJJ' -I 



STRIG(l) THEN RO=1:GOTO 660 
STRIG(2) THEN RO=0:GOrO 660 
638 



660 


LIN 


670 


FOR 


(8.1« 


680 


DAT 


698 


DAT 


700 


DAT 


710 


DAT 


720 


RAT 


730 


DAT 


740 


DAT 


750 


DAT 



E (64,128)-(255.159) .8.BF 

1 = 1 TO 8:C0PY (0, 8) - (256 , 95 ) , 1 
8) .8:NEXT I:RETURN 
A88800eff fff8B0088B000a00000ef0 
A 0000affff000000000i 08000080610 
A 80B0ef 0000000000001 00800088ef0 
A000effff8f008f 0f0f8B000i000ef0 
A000efff00B00f0f00ff00fffff0ef0 
A88ef 0088f0088f00f 8f 00af 80088BB 
A0sf0000f000f00f0f0f00f00f0ef00 
Aef000000f f08ff 0f080f08f f00et00 




2 ' < QUICklPftRM > for MSXC32k- )/2/-2 + 
/turboR OCT. 1989 by <E>Tomoo Suzuki 

3 ■ — 

4 CLEAR9999 . &HDEOB : DEF I NTA-Z: DIMBSC 33 > 1 S 
CREENl.e,0:WIDTH12:KEyOFF:COLOR15, 1 . 1 : KE 
Yl , "SCREENB:LIST";0NINTERVAL=42G0SU617;F 
0Rl=lTO33:READB$<l)lNEXT: I NTERVALON 

5 £PRlTESCia> = "aim*J."&":SPR!TESC 1 :i = "L-r-7'> 
;(6n" : FOR l=aTO3:VPOKEe204+l.-8B*< 1=0 3-11 

G*C i = l 5-32*C 1=2)-145*C 1=3 ) : FORJ=0TO7 : VPO 
KE768+I*64+J, VALC"&h"+MID$C"FFAAaeaaa0Ba 
B00aFFFECeCAC4DCCB8eFEe2BEBEBAB£BEFE2ABE 
BB9DBFDDB5BG", 1*1B+J+J+1 . 2 ) ) ;HEXT: NEXT 

6 F0RI=aT09:READMS':i ) :NEXT:ES=CHRSC27 > 

7 CLS:PUTSPR1TE0. CB , 2B8 > ; V= 168 : PRINTE$"Y 
&i STAGE;"R+l:G=B:PLAY"Tie0L8O3SlM9999 

B FORI=0TO2:ASi: !) = ■'" l NEXT : B=LEN<MS':RM0D 1 
0)):FORI=lTOB:fi=yALCMIDSCMS<RMODlB), 1,1) 
) : ASC0 )=ASC0 >+CHRS(32-e0*<A=2ORA=3 )-BB*t 
fl=40Rfi=5>):ASCl )=A$C 1 )+CHRI( 9B-8*C A=l ORA 
=30RA=50RA=80RA=9 ) :■ i ASC 2 )=A$(2 )+CHRSC32- 
aB*( A=B0RA=8 >-ea*< A=70RA=9 > i : NEXT: A$( 2 ) = 

9 L=B-5:PRINTE$"Y- :X=l:N=a 

:FOR1=BT07:PUTSPRITE1 + I , <. I*B.73-24*i; 1>3> 

).B,a:NEXT:A=l : GOTO 13 

IB ' Main — 

1 1 A=STiCKC0)+STlCKt I ) : B=C A=7ANDX> 1 )-<A= 
3ANDX<L ) : X=X+B : Y=Y+C VPEEKC 6479 )=96ANDC A= 
IANDY=1)-<A=5ANDY=0 3):PUTSPRITE9.C12B.7 1 
+24*Y), 15,0: IFC^DP(B)AND32)=32GOT015 

12 V=V-2-B*B-R*'lB:PUTSPRITE0.CV.71+24-*W3 
.9.1: IF^;<80THENy=16B:W=RNDCl>*2ELSElFV>l 
GBTHENV=8B:W=RND< 1 5*2 

13 IFft=aGOT011ELSEC=yPEEKCB447+S5*Y+B^: I 
FC=ll2THENMIDSCAStY+Y),>;+5. 1) = " ":N=N+1: 
ELSEiFC=12BGOT015ELSElFX=LANQN=10GOTOlG 

14 FORI=BTO2:LOCATE0.9 + I-<I>15:PRlNTMmS 
tASC D.X. 12>; : NEXT: GOTO 11 

15 F0RI=8TO7:PUTSPRlTE9,<12B-l*2.7 1+24*Y 
+1). 15: BEEP; NEXT: IFSTRlGCai+STRiGC IITHEN 
RUNELSE7 

IS BEEP:PR1NTES"Y&1 GOOD \ ":R=R+1:F0R 
I=BT0939:NEXT: IFRMODl BGOT07ELSEPRINTE$" Y 
t$VERY":PRINTES"Yl 1 <E>EMGVT-. " : GOTO 1 6 

17 PLAYBS':G>:G=GI10D33+i:RETURN 

IB ' Data 

1 9 DATADAAA , GFRBF , RBFEE , DCC4 , CGGG, FER8F . 
R6GA+fl , AA4 . . DAAA . GFRBF . RBF^E. DCC4. CGGG , F 
ER8E . RBFED, R2 . A+AA+A. A+AGA . R8AGA, GFF4 . A+ 
AA+A . A+AGA , R8 AA+A . A2 . A+AA+A . A+AGA . R8AGA . 
GFF4., A+AA+A. A+04CDE,RaF4. .El, El 

20 DATAeO000eOBBBBe2Be0206ei I t 135381 1 1 10 
000280.0000000053 1 18 10 n 381 1 5Ba2S004O704 
070026260, BBSBBBl 11111111111111111111111 
53 n 188BG1 109 1 1331000262000000000000000 

2 1 □ATAa0BeeO0030B030B0309B0B0e000O00098 
111011 1B991 1 10407040704072121601 t 11 11 1 .0 
eiOBBOl llllUlini313131SBlllllllinilBt8 

18 1901 1 lllinilllOllUlll 1 1981 1 111 1 1502B 
2607, 0000002467 267072407670487042 67240 

22 DATA000OO09a5B90509050B9803536 66531 1 I 
111111 10S81 11110111 1B900,B0B00O5ZO9002B0 

03531O135209111II0111135B96500011 139511. 
1 1 1 1 131 101 1 1 109S1 1 1 1 101 1 1 1 18901 101 101 104 

07040704070 138 lBfl53 1053! 1109B111 1092560 

23 OATABB0BflB97777777777779098ai91Bl 1111 
1111 13531 1 1181 1 IBI 1 1 1891B407O407O407B5BB 
90050090050090 1 1 138 1 1 101 1 181 1 1901 1 131 1 15 
01111111111111111111111111111111111131 
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